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t.O GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

1HE NETWORK INTERCONNECT EXERCISER (NIE) PROGRAM IC MEANT TO PROVIDE 
FIELD SERVICE WI1H A TOOL FOR DETERMINING THE CONNECTIVITY OF NODES 
ON THE NETWORK INTERCONNECT (NI). 

THE NIE PROGRAM WILL DETERMINE THE ABILITY OF NOOES ON THE NI TO 
COMMUNICATE WITH EACH OTHER AND PROVIDF NOOE INSTALLATION VERIFICATION 
ANO PROBLEM ISOLATION, THE NIE USES THE LOW LEVEL MAINTENANCE FEATURES 
OF THE DEUNA TO PROVIDE TESTING WITHOUT INTERUPTING NORMAL OPERATION 
SklS^JnJ*..^ VERSION OT THE NIE CAN ALSO BE RUN CONCURRENTLY ON 
ANOTHER NOOE, WITH EACH VERSION RUNNING INDEPENDENTLY OF EACH OTHER, 

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT 
THIS PROGRAM CAN BE USED WITH XXDP^. ACT. APT. SLIDE ANO PAPER 
I5 P !*^ F0 5 A COMPLETE DESCRIPTION Of THE RUNTIME SERVICES, REFER 
TO THE XXDP* USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 

tc 2SE?iJ2 RU * THE CZUAC NIF * PR0GRAM . THE FOLLOWING MINIMUM HARDWARE 
15 REQUIRED* 

A PDP-11 CPU 

- MINUMUM OF 24K WOROS OF MEMORY 

- A WORKING. LINE OR REAL-TIME CLOCK 

- A CONSOLE TERMINAL 

- ANY XXDP* SUPPORTED LOAD MEDIA 

- DEUNA- 11 UNIBUS TO ETHERNET ADAPATER 

1.3 RELATED DOCLHENTS ANO STANOARDS 

- DELNA USER'S GUIDE EK - DEUNA -UG -001 

- DELUA TECHNICAL DESCRIPTION EK -DEUNA- TD- 001 

- XXDP» USER'S MANUAL (CHQUS7.SEQ WH*RE ? IS THE REV. LEVEL OF 
THE MANUAL - »C" IS THE CURRENT REV.) 

1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

-I«i£2 A tJK J£ SI E . l S l°JSV I* COMMUNICATIONS LINK AND THEREFORE 
H^L^Y^EE^EitE^ 00 "^ AN ° ° E ^ A ' S AT EACH EN ° " THG LWK 

If.r^.b 1 ^ 2* R £ AL TIM6 CL0CK IS f WW. THE PROGRAM WILL CONTINUE 
?VL AN I ? THE PR0GRAM THAT TIMES THE DEVICE WILL HANG IF THE DEVICE 
TIMES OUT, 

IT IS NOT THE INTENTION OF THE NIE TO TEST THE DEVICE (DEUNA), 
BUT TO TEST THE COMMUNICATIONS LINK TO WHICH IT IS CONNECTED, 

IHt PREREQUISITE DIAGNOSTICS ARE; 
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SEQ 4 



- CZUAAAO 

- CZUABAO 



DEUNA REPAIR LEVEL DIAGNOSTIC 
DELNA FUNCTIONAL LEVEL DIAGNOSTIC 



ALSO AVAILABLE FOR TEST IS: 

- CXUACAO DEUNA DEC/X-11 MODULE 

1.5 ASSUMPTIONS 

IT IS ASSUMED THAT THE COMMUNICATIONS DEVICE (DEUNA) HAS BEEN TESTEO 
USING THE PREREQUISITE DIAGNOSTICS. THE OPERATOR SHOULD HAVE READ THE 
V^ R r^£^^ T ? TI0 ^^S TI0N * THE LUTING TO FAMILIARIZE HIMSELF UITH 
I£ ^S^ M0S AN0 CAPABILITIES AVAILABLE UNDER THE DIAGNOSTIC SUPERVISOR 

AND NIE , 

1.6 HISTORY 
22-MARCH-84 NICK MCCAMY 

THE SECTION "ALL" AND "LOOPPAIR" TESTS HAVE BEEN MODIFIED. THESE SECTIONS WOULD 
NOT -Riw CORRECTLY UHEN NOOES WERE CELETED *ROM THE NODE TABLE PRIOR TO 
*^*™£* THE PROGRAM WAS TRYING TO SET-UP THE BLANK SPACE (LEFT BY THE 
DELETED NODE) AS A TARGET OR ASSIST NODE, THIS PROBLEM HAS BEEN CORRECTED. 



2.0 OPERATING INSTRUCTIONS 

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP* USER'S MANUAL (CHQUS). 



2.1 



COMMANDS 



J£HIJ!5!U^ EVE 9 LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS ANO GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP* USER'S MANUAL HAS MORE DETAILS, 



COMMANO 

START 
RESTART 
CONTINUE 
PROCEED 

EXIT 
ADD 

DROP 

PRINT 

DISPLAY 
FLAGS 

ZFLAGS 



EFFECT 



START THE DIAGNOSTIC FROM AN INITIAL STATE 

START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 

CONTINUE FROM AN ERROR HALT 

RETURN TO XXDP* MONITOR (XXDP* OPERATION ONLY!) 

ACTIVATE A LWIT FOR TESTING CALL UNITS ARE 

CONSIDERED TO BE ACTIVE AT START TIME 

DEACTIVATE A UNIT 

PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 

BY THE DIAGNOSTIC - SECTION 4.0) 

TYPE A LIST OF ALL DEVICE INFORMATION 

TYPE THE STATE OF ALL FLAGS (SEE SECTION a, 3) 

CLEAP ALL FLAGS (SEE SECTION 2.3) 



A COMMAND CAN BE RECOQNIZEQ BY THE FIRST THREE CHARACTERS, 50 
YOU MAf, FOR EXAMPLE t TYPE "STA" INSTEAD QF "START", 



2,2 



SWITCHES 



Fl 

CZUAC80 DEUNA NI EXERCISER OIAG MACRO M120O 22-MAR-84 10:53 PAGE 3-2 



THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION, 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANOS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY "DDDDD'\ 

SWITCH EFFECT 



SEQ 5 



/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 

THE LIST. LIST IS A STRING OF TEST 
Nt*«ERS, FOR EXAMPLE - /TESTS: 1 :5: 7-10. 
THIS LIST WILL CAUSE TESTS 1.5,7.6,9,10 TO 
_„ fc BE RW, ALL OTHER TESTS WILL NOT BE RUN. 

/PASS: DDDDD EXECUTE DDDDD PASSES CDDDDD - 1 TO 64000) 

/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 

IN SECTION 2.3. 

/EOP, DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 

DDOOO PASSES ONLY. (DDDDD • 1 TO 64000) 

/UNITStLIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE - /UNITS:0:5: 10- 12 
USE UNITS 0.5,10,11,12 (UNIT NUMBERS - 0-63) 

EXAMPLE OF SWITCH USAGE j 

START/TESTS: 1-5/PASS: 1000/EOP: 100 

THE EFFECT OF THIS COMMANO WILl BE: I) TESTS 1 THROUGH 5 WILL BE 
EXECUTED. 2) ALL WITS WILL TESTED 1000 TIMES ANO 3) THE ENO OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE. TYPE M /TES:1-V INSTEAD OF "/TESTS: 1 -5" . 

gELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 

TESTS PASS FLAG5 EQP UNITS 



START 


X 


X 


X 


X 


X 


KESTART 


X 


X 


X 


X 


X 


CONTINUE 




X 


X 


X 




PROCEED 






X 






OROP 










X 


ADO 










X 


PRINT 












DISPLAY 










X 


FLAGS 












ZFLAGS 












EXIT 













2.3 FLAGS 

r^^ RE USED T0 SET ^ CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPI*, ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AFTER A START COMMANO UK.ESS SET USING THE 
FLAG SWITCH, THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 
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SEQ 6 



S^vEiSSSAn yjJ^I H § EXCEPTION OF THE START ANO ZFLAGS COMMANDS, 

^S™^ 5 AFFECT THE STATE 0F THE ^AGS* T HEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 



FLAG 

HOE 

LOE 

IER* 

IBE* 



IXQ* 

PRI 
PNT 

eDE 

UAM 
ISR 



IOR 
ADR 
LOT 
EVL 



EFFECT 



HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COhMANO MODE 
LOOP ON ERROR 
INHIBIT ALL ERROR REPORTS 
INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC. TEST ANO UNIT) 
INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLFP BY PRINTX MACRO'S) 
nr rt cCT MESSAGES TO LINE PRINTER 
PRINT TEST NUMBER AS TEST EXECUTES 
'BELL" ON ERROR 

CWATTENDED MOOE (NO MANUAL INTERVENTION) 
INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 
INHIBIT PROGRAM DROPPING OF UNITS 
EXECUTE AUTOOROP CODE 
LOOP ON TEST 

EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 
HAVE EVALUATION SUPPORT) 

♦ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 

SEE THE XXDP* USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AN) TYPE A "BELL" ON ERROR, YOU MAY USE THE FOLLOWING STRING: 

/FLAGS: LOE :IER;BOE 



2.4 HARDWARE QUESTIONS 

V^./^S 1 ??* 05110 IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
Ti£ USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L) ?" 

r£^5L^ NSW *£ " Y " AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN "PRELOADED" USING THE SETUP UTILITY ( *EE 
CHAPTER 6 OF THE XXDP* USER'S MANUAL). WHEN YOU ANSWER THIS 
S^?J.J9? yU. H ~?«!l'* , THE RETIME SERVICES WILL ASK FOR THE NUMGER 

Q^Ss C F^ D |^ A ^ir. Y0U WILL THEN BE ASKED THE F ' 0LL0WXNG 

* UNITS (D) ? 1<CR> 



UNIT 

DEVICE CSR ADDRESS : (0) 
INTERRIPT VECTOR ADDRESS 
INTERRUPT PRIORITY } (0) 



164524 ?<CR> 

: (0) 120 ?<CR> 

5 ?<CR> 



HI 

CZU4CB0 DEUNA NI EXtMCISER OIAG MACRO M1200 H2-MAR-84 10 5 53 PAGE 3-4 S£Q 7 

WHEN YOU COMPLETE THE ABOVE SEQUENCE YOU WILL BE AT THE NIE> 
COMMAND LEVEL. 

NIE> CA) ? 

2.5 NETWORK INTERRCONNECT EXERCISER COMMANDS 

THE "NIE>" COMMANO LEVEL FOLLOWS THE ATTACHING OF THE DEVICE AND 
ISSUING THE STAhT TO THE SUPERVISOR. THESE COMMANDS CAN BE TYPED 
WHEN THE "NIE>" PROMPT IS PRINTED. 

YOU ONLY HAVE TO TYPE ENOUGH CHARACTERS TO UNIQUELY SPECIFY A 
COMMAND. THE COMMANO LINE IS INTERPRETED FROM LEFT TO RIGHT. 

HELP OR ? PRINTS OUT A BRIEF DESCRIPTION OF NIE COMMANDS. 

SHOW NODES PRINTS OUT THE CONTENTS OF THE NODE TABLE, 

SHOW MESSAGE PRINTS OUT THE CURRENT MESSAGE PARAMETERS FOR SIZE, 

TYPE AND COPIES. 

SHOW COUNTERS PRINTS OUT THE CONTENTS OF THE HOST NOOE DEUNA INTERNAL 

COUNTERS. 

NODE ADR/TYPE THE NOOE COMMAND ALLOWS THE OPERATOR TO ENTER NOOES INTO 

THE NOOE TABLE. NOOES ARE SPECIFIED USING T>*IR 12 HEX 
DIGIT ETHERNET PHYSICAL ADDRESS AND CAN BE SPECIFIED AS 
EITHER TARGET OR ASSIST (A DEFAULT OF TARGET IS ASSUMED), 

MESSAGE/TYPE-/SIZE-N/COPIES-M THE MESSAGE COMMAND ALLOWS THE OPERATOR 

TO SELECT THE CERENT MESSAGE PARAMETERS AS FOLLOWS, 
ANY OR ALL OF THE PARAMETER CAN BE CHANGED WITH THE COMMANO, 
THE DEFAULT PARAMETERS ARE TYPE-ALPHA, SIZE-512, COPIES* 1, 

TYPE ONE OF THE FOLLOWING MESCAGE TYPES : 

ALPHA ! "♦!#• ()•♦,-. /0125456769, ;-?ABCDEFG ETC, 

ONES -- MESSAGE OF ALL ONES (Ullllli ) 

ZEROS -- MESSAGE OF ALL ZEROS (0000000 ) 

1ALT -- ALTERNATING l'S AND 0*S (10101010...) 

OALT -- ALTERNATING O'S AND l'S (01010101,..) 

CCITT -- "CCITT" PSEUOO-RANDOM TEST PATTERN 

OPERATOR SELECTED -- OPERATOR CHOSEN PATTERN OF LESS THAN 

12 CHARACTERS USING 0-9, A-Z AND SPACES, (NOT USED IN 

PATTERN TEST) 

SI ? E THE SIZE OF THE MESSAGE BUFFER (DATA ONLY)MAY BE BETWEEN 

32 AND 1466 BYTES. 

COPIES THE NU18ER OF COPIES CF EACH MESSAGE SPNT TO EACH NODE 

DURING A TEST MAY BE BETWEEN 1 AND 255. 

RUN T£ST/PASS*NN CAUSES EXECUTION OF THE SPECIFIED TEST FOR NN NUMBER OF 

PASSES. A DEFAULT VALUE QF 1 IS ASSUMED IF /PASS-NN IS 
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SEQ 8 



DIRECT 



LOOPPAIR 



NOT INCuUOED IN THE COMMAND LINE, A VALUE OF NN--1 WILL 
CAUSE THE TEST TO BE RUN INOEFINATELY. NODE ADDRESSES 
FOR THE TESTS ARE TAKEN FROM THE NODE TABLE AND SHOULD BE 
ENTERED PRIOR TO RUNNING THE TEST USING THE NODE COMMAND. 
IN THE CASE OF THE LOOPPAIR TEST, NODE PAIRS ARE REQUIRED 
AND MUST BE SPECIFIED AS TARGET AND ASSIST NODES. THE 
CURRENTLY SELECTED VALUES FOR MESSAGE TYPE, SIZE AND 
COPIES ARE USED BY EACH TEST. 

THERE ARE FOUR TEST TO CHOSE FROM: 

THE DIRECT TEST SENOS A LOOP DIRECT MESSAGE TO ALL OF THE 
NOOES CONTAINED IN THE NOOE TABLE ANO UAITS FOR A RESPONSE, 
I£ INTEGRITY OF THE RETURNED DATA IS CHECKED AND ANY ERRORS 
ARE REPORTED TO THE OPERATOR. 

THE LOOPF-AIR TEST SENDS ASSISTED LOOPBACK MESSAGES TO THE 
MESSAGE^ 5 C0 ^ TAINeD IN THE N0DE TABLE - THKEE TYPE OF ASSISTED 

1) RECEIVE ASSIST -- HOST -> TARGET -> ASSIST -> HOST 

2) TRANSMIT ASSIST -- HOST -> ASSIST -> TARGET -> HOST 

3) FULL ASSIST -- HOST -> ASSIST -> TARGET -> ASSIST -> HOST 

IN EACH CASE A RESPONSE IS WAITED FOR ANO THE DATA IS CHECKED, 

WHEN RUNNING THE LOOPPAIR TEST, BE VERY CAREFUL WHEN DELETING 
NODES, IT IS BETTER TO DELETE NODES IN PAIRS C ONE TARGET 
NODE ANO ONE ASSIST NODE). 

**♦ IMPORTANT!! *♦* ---> THE LOOPAIR TEST EXPECTS THAT EACH 

TARGET NOOE HAVE A CORRESPONDING ASSIST NODE, ANO THAT THE 
ORDER OF THE NOOES IN THE NODE TABLE BE THE FOLLOWING; 



FIRST NOOE IN TABLE 

2ND NOOE IN TABLE 

3RD NOOE IN TABLE 

4TH NODE IN TABLE 



TARGET 
ASSIST 
TARGET 
ASSIST 
ETC. 



BE VERY CARFFUL WHEN DELETING NOOES. IT IS BEST TO DELETE 
NOOES IN PAIRS C OIYE TARGET NODE ANO ONE ASSIST NOOE), 



PATTERN 



ALL 



THE PATTERN TEST SENOS SIX DIFFERENT LOOP DIRECT MESSAGES 
TO EACH NOOE CONTAINED IN THE NOOE TABLE. EACH OF THE SIX 
PATTERN TYPES (ALPHA, ONES. ZEROS, 1ALT, OALT, CCITT) 
IS USED FOR EACH NODE. RETURNED DATA IS CHECKED FOR ERRORS 

THE ALL NOOE TEST PERFORMS THE MOST EXTENSIVE CHECK OF THE 
NETWORK ANO IS COMPOSED OF TWO PARTS, FIRST A LOOP DIRECT 
MESSAGE IS SENT TO *ACH NODE IN THE TABLE. IF THIS IS 
SUCCESSFUL, THE EXERCISER BUILDS AN ARRAY OF NOOt PAIRS 
FROM THE TABLE AND SEWS A FULL ASSISTED LOOPBPCK MESSAGE 
TO EACH PAIR IN THE ARRAY. A SAMPLE ARRAY OF PAIRS FOR A 
TABLE WViH 7 NODES IS SHOWN BELOW, 
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SEQ 9 



1-2 
1-3 
1-4 
1-5 
1-6 
1-7 



2-3 

2-5 
2-6 
2-7 



3-4 
3-5 
3-6 
3-7 



4-5 
4-6 
4-7 



5-6 
5-7 



6-7 



IDENTIFY ADR 



BUILD 



CLEAR NODE/ADR 



A REQUEST ID MESSAGE IS SENT TO THE NOOE SPECIFIED BY ADR 
AND THE RESPONDED SYSTEM ID PARAMETERS ARE PRINTED. 

THE BUILD COMTANO CAUSES THE EXERCISERS TO LISTEN FOR 
SYSTEM ID MESSAGES WHICH ARE BROADCAST BY ALL DEUNA NODES 
ONCE EVERY 10 MINUTES. ALL NODES IDENTIFYING THEMSELVES 
ARE ADDED TO THE NOOE TABLE. THE BUILD COMMANO STOPS 
WHEN NO NEW NODES HAVE BEEN ADDED FOR 10 MINUTES OR WHEN 
40 MXNUTES HAVE ELAPSED, THE AVERAGE TIME FOR THIS 
CfttlANO SHOULD BE 15-25 MINUTES, 

T5£ CLEAR NOOE COMMANO CLEARS THE S°ECIFIED NODE FROM 
THE NOOC TABLE. THE NOOE CAN BE SPECIFIED BY EITHER 
ITS 12 DIGIT PHYSICAL ADDRESS OF ITS LOGICAL NAME 
(AS ASSIGNED BY NCOF TABLE), 



CLEAR NODE/ALL THIS COMMANO CLEARS XHC NUCS TABLE. 



CLEAR MESSAGE 

CLEAR SUMMARY 
SUiMARY 



THIS COMMAND SETS THE MESSAGE PARAMETERS BACK TO THE 
DEFAULT VALUIS. 

THIS COMMANO CLEARS THE SUMMARY TABLE. 

THE SUMMARY COMMANO PRINTS OUT THE SUMMARY TABLE, 
THE NIE MAINTAINS THE FOLLOWING INFORMATION FOR 
NODES WHO HAVE BEEN SENT MESSAGES? 



RECEIVES NOT COMPLETE 
LENGTH ERRORS 
BYTES COMPARED 



RECEIVES COMPLETE 
DATA COMPARE ERRORS 
BYTES TRANSFERED 



SAVE 



THE SAVE COMMANO SAVES THE CONTENTS OF THE NODE TABLE. 
FOR THE VAX VERSION, THE TABLE IS SAVED IN A FILE CALLED 
NIE.TBL, THE PDP-11 VERSION CANNOT WRITE TO EXTERNAL 
MEDIA, SO THE CONTENTS ARE SAVE INTERNALLY, 

THE LNSAVE COMMANO RESTORES THE CONTENTS OF THE NODE TABLE 
USED. THE PDP-11 VERSION USES THE CONTENTS OF ITS 
INTERNALLY SAVED TABLE. 

UNSAVE/FILE.EXT THE UNSAVE COMMANO WHEN USEL WITH A FILE NAME WILL READ 

A NOOE TABLE CREATED BY USING AN EDITOR FOR AN XXDP* 
MEDIA, 



UNSAVE 



EaIT 



RETURNS CONTROL T THE DIAGNOSTIC SUPERVISOR 
(EITHER VDS OR DRS), 

NQTfcSl 1) AOR IS THE PHYSICAL ADDRESS OF A NODE ON THE NI. 

2) PASS COUNT IS A DECIMAL NUMBER BETWEEN 1 AND b5534 
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A DEFAULT VALUE OF 1 IS ASSUMED. SPECIFYING -1 
CAUSES THE TEST TO BE RUN INDEFINATELY. 

2.5 SOFTWARE QUESTIONS 

AFTER YOU H*VE ANSWERED THE HARDUARE QUESTIONS OR AFTER A RESTART 

OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 

PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 

OPERATION MODES. YOU WILL BE PROMPTED BY "CHANGE SW (L) ?" 

IF YOU WISK TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

"Y". THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT T'ARAGRAPH( S ). 

2.6 QUICK START-UP PROCEDURE CXXDPO 
TO START-UP THIS PROGRAM} 

1, BOOT XXDP* 

2, GIVE THE DATE ANO ANSWER THE LSI AND 50HZ C IF THERE 
IS A CLOCK) QUESTIONS 

3, TYPE "R NAME", WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 

4, TYPE "START" 

5, ANSWER THE "CHANGE HW" QUESTION WITH "Y" 

6, ANSWER ALL THE HARDWARE QUESTIONS 

7, ANSWER THE "CHANGE SW" QUESTION WITH "N" 

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS, THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 ANO 2.5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE 1HREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
{LP I ?. GN 9 S I IC: GENEPAL, BASIC ANO EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE "IER" FLAG IS SET (SECTION 2.3), 
THE GENERAL ERROR MESSAGE IS ^F THE FORM : 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PCjXXXXXX 
ERROR MESSAGE 

.WHERE} NAME » DIAGNOSTIC NAME 

TYPE - ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 

NUMBER - ERROR NUMBER 

UNIT NUMBER • - N (N IS LAST UNIT IN PTABLE) 

TST NUMBER - TEST AND SUBTEST WHERE ERROR OCCURRED 

PCjXXXXXX - ADDRESS OF ERROR MESSAGE CALL 
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??J££J522F MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
T HE "IER" OR "IBR" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE "If R'\ "IBR" OR "IXR" FLAGS ARE SET (SECTION 2,3). 
THESE MESSAGES ASE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES, 

3,2 SPECIFIC ERROR MESSAGES 

ERROR MESSAGE: MEANING 



SEQ 11 



?ILL CMD-BAD SYNTAX A COMMAND WITH AN ILLEGAL CHAR WAS 

TYPED - RETYPE THE COMMAND. THE VAILD 
COMMANDS AND THEIR SYNTAX ARE SHOWN 
IN SECTION 2.5 

INCOMPLETE A REQUIRED PART OF A COMMAND WAS LEFT 

OUT. 

'NUMBER TOO bIG THE VALUE OF A NUMCRIC STRING IN THE 

COMMAND LINE WAS LARGER THAN 65535 
OR 177777 OCTAL. ( >16 BITS). 

?BAD RADIX A "8" OR "9" WAS TYPED WHEN AN OCTAL 

STRING WAS EXPECTED, PROBABLY OCCURED 
WHEN TYPING A "DUMP" COMMAND WHERE 
OCTAL ADDRESSES ARE EXPECTED. 

EXAMPLE OF A LOST PACKET ERROR DURING LOOPPAIP TESTING 

CZUAC HRD ERR 00028 ON UNIT 00 TST 001 SUB 000 PC:064442 

TIMEOUT OCCURED - LOO^ r. jAGE TYPE - RECEIVE ASSIST 
FAILING TARGET NODE ADDRESS: AA-OO-03-00-00-00 
FAILING ASSIST NODE ADDRESS: AA-00-03-00-00-0.? 

EXAMPLE OF A LOST PACKET ERROR DURING PATTErIN TESTING 

CZUAC HRD ERR 00028 ON UNIT 00 TST 001 SUB 000 PC -63730 

TIMEOUT OCCURED BEFORE ! OOPBACK REPLY 
FAILING NODE ADDRESS: AA-OO-03-00-00-00 
DATA PATTERN: ONES 

4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS. THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED 
THE "EOP" SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED, SECTION 2.2 DESCRIBES SWITCHES, 
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5.0 DEVICE INFORMATION TACLES 

THIS IS THE OEFAULT HARDWARE P- TABLE. THE VALUES AND SIZE ARE USED 
AS A 'TEMPLATE " FOR CREATING ACTUAL P -TABLE ENTRIES AND THE DEFAULT 
VALUES PROVIDED FOR THE OPERATOR. SEE SECTION 2.4 FOR AN EXAMPLE OF 
THE HARDWARE Q11STI0NS, 

THE NUMBERS IN BRACKETS CLE. [6]) INDICATES THE OFFSET OF THE WORD 
INTO THE HARDWARE P-TABLE. THE OFFSETS MUST MATCH THE P-T4BLE OFFSETS 
USED IN THE HARDWARE PARAMETER CODING SECTION WHERE THE "GET PARAMETER" 
CALLS ARE USED TO FILL THE P-TABLE. 

.WORD 174510 j[0] CSR ADDRESS 

.WORD 120 ,[2] INTERRUPT VECTOR 

.WORD 240 ;[6] INTERRUPT PPIORIT* (5) 

6.0 TEST SUMMARIES 

6.1 DIRECT 

THE DIRECT TE3T SENDS A LOOP DIRECT MESSAGE TO ALL OF THE 
NODES CONTAINED IN THE NODE TABLE AND WAITS FOR A RESPONSE, 
THE INTEGRITY OF THE RETURNED DATA IS CHECKED AND ANY ERRORS 
ARE REPORTED TO THE OPERATOR. 

6.2 LOOPPAIR 

THE LOOPPAIR TEST SENDS ASSISTED LOOPBACK MESSAGES TO THE 

NODE PAIRS CONTAINED IN THE NODE TABLE. THREE TYPE OF ASSISTED 

MESSAGES ARE SENT; 

1) RECEIVE ASSIST -- HOST -> TARGET -> ASSIST -> HOST 

2) TRANSMIT ASSIST -- HOST -> ASSIST -> TARGET -> HOST 

3) FULL ASSIST .- HOST ••> ASSIST -> TARGET -> ASSIST -> HOST 

IN EACH CASE A RESPONSE IS WAITED FOR AND THE DATA IS CHECKED. 

6.3 PATTERN 

THC PATTERN TEST SENDS SIX DIFFERENT LOOP DIRECT MESSAGES 
TO EACH NODE CONTAINED IN THE NOD^ TABLE. EACH OF THE SIX 
PATTERN TYPES (ALPHA, ONES. ZEROS, 1ALT. OALT, CCITT) 
IS USED FOR EACH NODE. RETURNED DATA IS CHECKED FOR ERRORS. 

6.4 ALL 

THE <\LL NODE TEST PERFORMS THE MOST EXTENSIVE CHECK OF THE 
NETWDM ANO IS COMPOSED OF TWO PARTS. FIRST A LOOP DIRECT 
MESSAGE IS SENT TO EACH NODE IN THE TABLE. IF THIS IS 
SUCCESSFUL. THE EXERCISER BUILDS AN ARRAY OF NOOE PAIRS 
FROM THE "\&LZ AND SENDS A FULL ASSISTED LOOPBACK MESSAGE 
TO EACH PAIR IN THE ARRAY. A SAMPLE ARRAY OF PAIRS FOR A 
TABLE WITH 7 NODES IS SHOWN BELOW. 
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SEQ 13 



1-2 
1-3 
1-4 
1-5 
1-6 
1-7 



2-3 
2-4 
2-5 
2-6 
2-7 



3-4 
3-5 
3-6 
3-7 



AS 
4-6 
4-7 



5-6 
5-7 



6-7 



68? 

709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
'39 
'40 
141 
742 
743 
744 
745 
746 
74 7 
748 
"'49 
750 
751 
752 
753 
754 



000000 



002000 



SBTTL PROGRAM HEADER 

.ENABL AbS.AMA 

2000 

SBTTL PROGRAM MACROS 

I $ STACK MACRO 

♦ ♦ ♦ 

THE ISSTACK MACRO FACILITATES INITIALIZING THE R6 (HARDWARE) STACK 
AND THE R5 (PARAMETER) STACK. R5 IS SET TO THE STACK LOW LIMIT 
CSTAKLO) AND THE PARAMETER STACK GROWS UPWAP*. R6 IS SET TO THE 
STACK HIGH LIMIT (STAKHI) AND THE HARDWARE ;TltCK GRCWS DOWNWARO. 
IF THERE IS A STACK OVER-RUN, IT WILL BE r.rEUTEO BV THE PREG14 
ROUTINE, 
I 

.MACRO I$STACK STAKLO, STAKHI 

INITIALIZE THE PARAMETER STACK POINTER. 
{INITIALIZE THE HARDWARE STACK POINTER. 



MOV 
MOV 


STAKLO. R5 
STAKHI, SP 


.ENDM 


IISTACK 


;PUSH 


MACRO 



¥ * ♦ 



j THE "PUSH" MACRO FACILITATES PUSHING ITEMS ON THE HARDWARE STACK* 
{UP TO SEVEN ITEMS MAY BE PLACED ON THE STACK WITH ONE MACRO, 



.MACRO PUSH 
.IF NB G 



A.B.C.D.C.FtG 



MOV 

.ENDC 



G.-(SP) 



.IF NB F 

MOV F,-(SP) 

,ENDC 

.IF NO E 

MQV £,-(5^) 
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rKUuHrtM MACROS «**-«■ *-» 

755 ,ENDC 
756 

757 .IF N6 

758 MOV 0,-CSP) 

759 ,ENOC 
760 

761 ,IF NB C 

762 MOV C.-(SP) 

763 ,ENOC 
764 

765 ,if NB 6 

766 MOV B.-CSP) 

767 ,cmoc 
768 

769 .IF NB A 

770 MOV A.-CSP) 

771 .ENOC 

773 ,ENOM PUSH 
774 

775 ,P0P MACRO 

776 «. ........ 

777 

778 ,♦♦♦ 

III « T ^ Mp 0P M MACRO FACILITATES RETRIEVING ITEMS FROM TH£ HARDWARE STACK, 

™° l UP TO SEVEN ITEMS MAY BE RETRIEVED WITH ONE MACRO. 

782 '"" 

7 7 H .MACRO POP A t B a C,D a E t F t G 

III 'J F ** A 

7g6 MOV CSP)f,A 

III ' EN ° C 



789 



.IF NB B 



7^ MOV <SP)*,B 

791 .ENOC 
792 

;2 - IF » C 

;2f wv (SP)» t c 

796 * EN0C 

79« .IFNBD 

'22 M0V csp)*,d 

799 ENOC 

800 ,tNUC 

f°l .IF NB il 

22f MOV (SP)»,E 

604 ' EN0C 

22? .IF NB F 

2<K> MOV CSP)*,F 

00 7 ENOC 

808 ,tNUL 

809 .IFNBU 

2}? MOV CSP>*,Q 
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812 
813 
814 
815 

816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
8J2 
833 
834 
835 
83t> 
837 
838 
839 
840 
841 
842 
843 
84 4 
845 
846 
84 7 
8*8 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
86! 
862 
863 
864 
865 
866 
867 

868 
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. ENOM POP 
I CALL MACRO 



SEQ 15 



\ 



i ♦♦ ♦ 

'IHIJShb S5 C 59^ A ?ihJI ATC:S CALLI *G A SUBROUTINE VIA THE REGISTER 
.PRESERVE ROUTINE (PREG14), IT PLACES THE PARAMETERS TO BE PASSED ON 
» THE PARAMETER STACK, UP TO 7 PARAMETERS MAY BE PASSED USING THIS 
I MACRO • 
I 

.MACRO CALL 

.IF NB G 



S A,B,C,D,E,F,G 



MOV 
.ENOC 



G.CR5)* 



.IF NB F 

MOV F,(R5)* 

.ENOC 

.IFN8E 

MOV t.(R5)f 

.ENOC 

.IF NB D 

MOV D.CR5)* 
.ENOC 

.IF NB C 

MOV C.CR5)* 

.ENOC 

.if ;« b 

MOV B,CR5)» 
.ENOC 

.IF NB A 

MOV A,CR5)» 

.ENOC 

JSR 
.WORD 



R4,PREG14 

S- ANCHOR 



.ENOM CALL 
iRETifiN MACRO 



I ♦ ♦ ♦ 



I THE RETURN MACRO FACILITATES PASSING PARAMETERS BACK TQ A CALLING 
■Jlft™*' UP TO 7 PARAMETERS MAY BE PASSED BACK ON THE PARAMETER 
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f*l .MACRO RETURN A.B.C.D.E.F ,G 

§71 .IF NB G 

87§ MOV G.(R5)» 

£73 .ENOC 

874 

875 . IF NB F 

§76 MOV F,CR5)» 

877 %EN0C 

876 

22; .IF NB E 

880 MOV E.CR5)* 

881 , EN OC 
882 

683 .IF NB D 

884 MCK D.CR55* 

885 t ENOC 
886 

807 .IF NB C 

888 MCV C.CR5-)* 

889 . EN0 C 
890 

22i -I F NB B 

8^2 MOV B,CR5:>* 

893 .enoc 

894 

895 %IF Me A 

g^ MOV A,(R5)» 

Ill ' EN0C 

899 RTS pc 

|°* ,ENOM RETURN 

^3 tPIP'JSH MACRO 

905 i - 

906 t > ¥ ¥ 

221 * TMe P^PUSH MACRO FACILITATES PUSHING PARAMETERS ON THE PARAMETER 

£* I STACK. UP TO SEVEN ITEMS MAY BE PUSHED WITH ONE MACRO, 

910 '"" 

l\l .MACRO P$PUSH A.B^C.D.E.F.G 

l\j .IFNBG 

Z\* MOV G.CR5V 

l\l .ENOC 

*}ft .IFN6F 

*J® MOV F.CR5)* 

HI .ENOC 

211 .IFNBE 

lH MOV E,(R5)> 

923 . EN0C 

9 ^ 5 .IF NB 



Aceo 



E2 
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SEQ 17 



9?6 
927 
928 
929 
950 
931 
932 
933 
934 
935 
936 
937 
936 
939 
940 
941 
942 
943 
944 
945 
946 
947 

94e 

949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
961 
982 



MOV D,(R5)* 
.ENDC 

.IF NB C 

MOV C,(R5)» 

.ENOC 

.If N6 B 

MOV B.CR5)- 

.ENOC 

.IF NB A 

MOV A.CR5)* 

.ENDC 

.ENOM P$PUSH 

iPIPOP MACRO 



* ♦♦♦ 

;THE PIPOP MACRO FACILITATES RETRIEVING PARAMETERS FROM THE PARAMETER 

iSTACK. UP TO 7 PARAMETERS MAY BE RETRIEVED. 

I 

I THE ROUTINE THAT RECEIVES THE PARAMETERS MAS THE RESPONSIBILITY Of 

t CLEANING UF THE PARAMETER STACK. THIS MACRO IS AN AID TO MAKING 

j A LOCAL COPY OF PASSED PARAMETERS ANO CLEANING UP THE PARAMETER STACK. 

I 

■MACRO PtPOP A.B.C.D.E.F.G 

.IF NB A 

MOV -CR5) t A 

.ENOC 

.IF NB B 

MOV -CR5),6 
,ENOC 

.IF NB C 
MOV -(R5),C 
ENOC 

.IF NB D 

MOV -CR5),D 

.ENOC 

.IF NB E 

MOV -(R5> E 

.ENOC 

.IF NB F 

MOV -CR5),F 

.ENOC 

.IF NB G 



F2 



D 
M M 



983 

981 

985 

986 

987 

988 

993 

994 

995 

9% 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1Q43 
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SEQ 18 



MOV 
.ENDC 



~(R5),G 

♦ENDM PJPOP 



.MACRO CLI CHAR, HITVAL, MISAOR, CMPSTR 

NODCL CHAR,HITVAL,\X$,MISADR,CMPSTR u Q*fifi PARSE TREE OQOO 
.ENOM 

.MACRO NODCL CMAR.HITVAL ,XY .MISADR .CMPSTR 



NOD'XYt .BYTE CHAR.HITVAL 



.IF N6 MISAOR 

.WORD MISAOR -NOD ' XY 
.ENDC 
.IF N6 CMPSTR 

.WORD H~NOD'XY 

.ASCIZ CMPSTR 

.EVEN 
.NLIST 
1$: 
.LIST 
.ENOC 
.NLIST 
X$-Xt*l 
.LIST 
.ENOM 



.MACRO RNGFRM A,B,C 



8«B*1 



.ENOM 



.LIST 
.UORO 
.NLIST 
NEXT 

.LIST 

.WORD 
.UORD 
.WORD 

, NLIST 



RPKLEN 
A t \B 



, SPECIAL CHAR. CODE OR COMPARE CHAR. 
I ANO ACTION CHIT) VALUE FOR ACTION 
j ROUTINES. 

rDISPLACEMENT TO "MISS" NODE (BYTES) 



lOISPLACEMENT TO GET TO NEXT NODE 
I (ONLY IF ITS A "CLISTR" NODE) 



i MACRO TO FORM TRANSMIT ANO RECIEVE 
j DESCRIPTOR RINGS. 



; SEGhiENT LENGTH 



j OWNERSHIP ANO STATUS BITS 

j STATUS 

l SEQUENCE NUM6ER 



.MACRO NEXT A,B 

.LIST 

.WORD A'B 

.NLIST 
.ENOM 

I ♦ ♦ 

j THE PROGRAM HEADER IS THE INTERFACE BETWEtN 
j THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



\ SEGMENT BUFFER ADDRESS 



ma m 
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1044 
1045 

1046 
1047 
1064 
1065 



002000 



002000 
002000 
002000 
002001 
002002 
00200J 
002004 
002005 
002006 
002007 
002010 
002010 
002011 
002011 
002012 
002012 
002014 
002014 
002016 
002016 
00202v 
002020 
002022 
002022 
002024 
002024 
002026 
002026 
002030 
002030 
002032 
002032 
002034 
002034 
002036 
002036 
002040 
002040 
002042 
002042 
002044 
002044 
002046 
002046 
002050 
002050 
002051 
002052 
002052 
002054 
002056 
002056 



103 
132 
125 
101 
103 
000 
000 
000 

101 

060 

000000 

000000 

112762 

OOOOOO 

002170 

OOOOOO 

113166 

OOOOOO 

OOOOOO 

000001 

OOOOOO 

002!. 64 

000340 

OOOOOO 

OOOOOO 

003 
003 

OOOOOO 
OOOOOO 

OOOOOO 



1 -- 
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POINTER BGNRPT 



HEADER CZUAC,A,O t O,l.PRI07 



SEQ 19 



LJNAME 


• * 






.ASCII 


/C/ 




.ASCII 


/!/ 




.ASCII 


/u/ 




.ASCII 


/A/ 




.ASCII 


/c/ 




.BYTE 







.BYTE 







.BYTE 





L*REV: 








.ASCII 


/A/ 


LJDEPO 








.ASCII 


/o/ 


L*UNIT 








'.WORD 





LUIML 








'.WORD 





I *'HPCP 








'.WORD 


L$HARD 


L*SPCP 








'.WORD 





LSHPTP 








'.WORD 


l*HW 


LJSPTP 








'.WORD 





t.JLADP 








'.WORD 


L*LAST 


L$STA: 








.WORD 





L*C0: : 








.WORD 





LIDTYP 


• 






.WORD 


1 


L*APT: 








.WORD 





L*DTP: 








.WORD 


HDISPATCH 


L1PRI0 








'.WORD 


PRI07 


LSENVI 








' .WORD 





LIEXP1. 








'.WORD 





LSMREV 








'.BYTE 


CIREVIS10N 




.BYTE 


CIPDIT 


L$EFj; 








. WORD 







.WORD 





L$SPCj; 







.WORD 



-12 
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1066 
1077 
1078 
1079 
1080 
1081 



1082 
1088 
1089 
1090 
1091 



002060 
002060 
002062 
002062 
002064 
002064 
002066 
002066 
O02070 
002070 
002072 
002072 
002074 
002074 
002076 
002076 
002100 
002100 
002102 
002102 
002104 
002104 
002106 
002106 
002110 
002110 
002112 
002112 
002114 
002114 
002116 
002116 
002120 
002120 



002122 
002122 
OG2122 
002125 



CISfcR/ 



002130 
002130 
002130 

002133 
002136 
002141 
002144 
00214 7 
002152 



002122 
076560 
000000 
000000 
000000 
000000 
000000 
002130 
104035 
000000 
076600 
100142 
100140 
076572 
000000 
000000 
000000 



104 
116 



103 

101 
104 
116 
116 
105 
122 



; NAMES OF Df VICES SUPPORTED BY PROGRAM 
i 

DEVTYP <DEUNA> 



105 
101 



155 
000 



j TEST DESCRIPTION 



; 



OESCRIPT 



<CAJAC OEUNA NI EXERCISER > 



132 

103 
105 
101 
111 
130 
103 



125 

040 
125 
040 
040 
105 
111 



LIOEVP 

L*REPP 

L$EXP4 

LIEXP5 

L*AUT 

L$DUT 

L$LUN 

L$DESP 

L$L0AD 

L$ETP 

L$ICP 

L$CCP 

LSACP 

L$PRT 

l$TEST 

LSDLYt 

L$HIME 



.WORD 

,WORD 

.WORD 

.WORD 

.UORD 

.WORD 

.WORD 

.WORD 

EMT 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



L$DVTYPj : 



LSDESC; i 



SEQ 20 

LiDVTvP 

L*RPT 











L$DESC 

E$LOAD 



LIINIT 

L$ CLEAN 

UAUTO 

LJPRGT 









.ASCIZ /DEUNA/ 
.EVEN 



.ASCIZ /CAJAG OEUNA NI EXER 
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SEQ 21 



002155 


123 


002160 


000 


1092 




1093 




1100 




1101 




1102 




1103 




1104 




1115 




1116 





105 



122 



.EVEN 



; FORMAT STATEMENTS USED IN PRINT CALLS 



.EVEN 



J? 
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}}j£ .S8TTL DISPAKH TABLE 

1 12o 

1127 ,♦♦ 

}}** ; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS Of EACH TEST. 

1}29 , it IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 

1 150 * - - 

1131 

1132 0C2162 DISPATCH 1 

$2164 ° 00001 - WOm > 1 

002164 100274 ""^ftlORD Tl 



I<2 
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JW1 .SBTTL DEFAULT HARDWARE P-TABLC 

1143 ,»« 

}}** i THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 

JJJ5 ; THE TEST-DcVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 

}}*% 1 IS IDENTICAL TO THE STRUC T URE OF THE HARDWARE P-TABLES, 

}J*Z * AN0 IS USE0 AS A "TEMPLATE" FOR BUILDING THE P-TABLES. 

ll**o i - - 

1149 

1150 002166 BGNHW DFPTBL 

002170 ° 00005 ' W0R0 LiQOOQ-UMW/2 

U5l 00217 ° DFPTBL: , 

1152 002170 174510 .WORD 174510 { CSR 

1153 002172 000120 .WORD 120 | VECTOR 

1154 002174 0QQ24Q .WORD PRI05 , PRIORITY 
1155 

1165 

1166 002176 ENDHW 

002176 L1Q000; 



Si 
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SEQ 24 



1169 
1170 
1171 
1172 
1173 
1174 
1173 
1176 
1177 
1178 
1179 



1180 
1188 
1189 

1190 
1191 
1192 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1223 
1224 



002176 
002176 
002200 
002200 



002200 
002200 



000000 



.SBTTL SOFTWARE P-TABLE 

; ♦♦ 

j THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 

s PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 

i SET UP AT ASSEMBLY TIME AND MAY BE VARIED 8Y THE OPERATOR 

; AT RUN TIME. 

I -- 



BGNSW SFPTBL 



ENDSW 



SBTTL GLOBAL EQUATES SECTION 



{ ♦♦ 



L$SW: : 
SFPTBL 



L10001 



WORD L10001-L*SW/2 



002200 



l THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
ARE USED IN MORE THAN ONE TEST. 



EQUALS 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
0000C1 

001000 
000400 
0^0200 
000100 
000040 
000020 
0000 1C 



i BIT 


DIFINITIONS 


blTlS- 


- 100000 


BIT14- 


- 40000 


BIT13- 


• 20000 


BIT12- 


- 10000 


aiTii- 


- 4000 


BIT10- 


- 2000 


BIT09- 


■ 1000 


BIT08- 


- 400 


BIT07- 


- 200 


B1T06* 


- 100 


BIT05' 


» 40 


BIT04- 


» 20 


BIT03- 


- 10 


BIT02- 


• 4 


BIT01- 


» 2 


BITOO- 


- 1 


BIT9-- 


BIT09 


BIT8-- 


BIT08 


BIT7-- 


BIT07 


BIT6-- 


BIT06 


BIT5-- 


BIT05 


BTT4-- 


BIT04 


BITi»» 


BIT03 
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SEQ 25 



000004 
000002 
000001 



000040 
000037 
000036 
000035 
000034 



BIT2*- BIT02 
DIT1-- BIT01 

BI T 0-« BITOO 

J 

} EVENT FLAG DEFINITIONS 

} EF32.-EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 



EF.START-- 


32 


EF.RESTART-- 


31 


EF. CONTINUE-- 


30 


EF.NEW-- 


29 


EF.PWR-- 


28 



; START COMMAND WAS ISSUED 

1 RESTART COMMAND WAS ISSUED 

; CONTINUE COMMAND WAS ISSUED 

; A NEW PASS HAS BEEN STARTED 

; A POWER-FAlu/POWER-UP OCCURRED 



PRIORITY LEVEL DEFINITIONS 



000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
10000Q 



PRI07-- 340 


PRIC6-- 300 


PRI05-- 240 


PRI04-- 200 


PRI03-- 140 


PRI02-- 100 


PRI01-- 40 


PRI00-- 


! OPERATOR FLAG 


EVL*« 


4 


LOT-- 


10 


ADR-« 


20 


IDU-' 


40 


ISR-' 


100 


UAM»« 


200 


BOE" 


400 


PNT-- 


1000 


PRI- 


2000 


IXE»' 


4000 


IBE-- 


1CO0O 


IER- 


20000 


LOE-' 


40000 


HGE*' 


100000 



N2 



EQffift&Mtt 


LNIEXERC 
.S SECTION 


1226 




1227 




1228 




1229 


000000 


1230 


000001 


1231 


000002 


1232 


000004 


1233 


000010 


1234 


000020 


1235 




1236 




1237 




1238 


000100 


1239 


000111 


1240 


001600 


1241 




1242 




1243 




1244 


000000 


1245 


000001 


1246 


000002 


1?47 


000003 


1248 


000004 


1249 


000005 


1250 


000006 


1251 


000007 


1252 


oooo.ro 


1253 


000011 


1254 


000012 


1255 




1256 




1257 




1258 


000000 


1259 


000001 


1260 


000002 


1261 


000003 


1262 


000004 


1263 


C00005 


1264 


000006 


1265 


000C07 


1266 


0000 10 


1267 


000011 


1268 


000012 


1269 


000013 


1270 


000014 


1271 


0000 l l J 


1272 


000016 


1273 


000017 


1274 


OC-5020 


1275 


000021 


1276 


000022 


1277 


000023 


12/8 


000024 


1279 


000025 


1280 


000026 


1281 


000027 


1282 


000030 



RCISER DIAG MACRO M1200 22 -MAR -84 10:53 PAGE 8 



{ ? {EQUATES FOR FLAG WORD} ; ; ; } 

CTARGT--0 

CASIST--1 

CSHCTR--2 

CCLNAD--4 

CCLNAL--8. 

CEXIT--16. 



SEQ 26 



{ARG TYPE FOR 'SHOW COUNTERS' CMD 
lARG TYPE FOR 'CLEAR NODE/ADR' CMD 
•,ARG TYPE FOR 'CLEAR NODE/ALL' CMD 



jllCLOCK ENABLE VALUES TO BE LOADED IN CLK'S CSRjj; 



LCLKEN--100 
PCLKEN--111 
PCLKCT--1600 



} L -CLOCK CSR VALUE TO ENABLE THE CLO^K 
i P-CLOCK CSR VALUE TO ENABLE THE CLOCK 
l P -CLOCK COUNT SET REGISTER FOR COUNTER 



SPECIAL CLI CODES FOR "CHAR" ARGUEMENT IN CLI CALLS 
COMMAND LINE INTERPRETER DEFINITIONS) 
CLIERR- 

■ 1 

- 2 

- 3 

■ 4 
• 5 

- 6 
7 
8. 



CLIEXI- 

CLIBR - 

CLIBIF- 

CLISPA- 

CLINUM- 

CLIALP- 

CLIALN" 

CLIOCT- 

CLIUEC* 9, 

CLISTR« 10. 



jDEFS FOR COMMAND LINE INTERPRETATION ACTION VALUES 

NULL-0 

HELP-1 

NODE -2 

BUILD-3 

CRUN-4 

CPATRN-5 

:save-6 

UJMMRY-7 

.DENT -10 

EMT-11 

NOTNUF-12 

CEXADR-13 

CSAVR4-14 

CNODE-15 

CALPHA-16 

CONES-17 

CZEROS-20 

C1ALT-21 

CCALT-22 

CCCITT-25 

COPRSL-24 

CTYP'I-25 

CS1/E-26 

CCPYS-27 

CNDADR-30 



CZUACBO DEUNA NI EXERCISER OIAG MACRO M1200 
GLOBAL EQUATES SECTION 
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SEQ 27 



1285 


000031 


1284 


000032 


1285 


000033 


1286 


00003/. 


1287 


000035 


1288 


000036 


1289 


000037 


1290 


000040 


1291 


000041 


1292 


000042 


1293 


000043 


1294 


000044 


1295 


000045 


1296 




1297 


000000 


1298 


000001 


1299 


000002 


1300 


000003 


1301 


000004 


1302 


000005 


1303 


000006 


1304 




1305 




1306 




1307 




1308 




1309 




1310 




1311 


100000 


1312 


040000 


1313 


020000 


1314 


010000 


1315 


004000 


1316 


002000 


1317 




1318 


000400 


1319 


000200 


1320 


oooioo 


1321 


000040 


1322 




1323 




1324 




1325 




1326 


000001 


1327 


000002 


1328 


000003 


1329 


00O0O4 


1330 


000005 


1331 




1332 




1333 


000010 


1334 


000011 


1335 


000012 


1336 


000015 


1337 


QQQ017 


1338 




1339 





CNODAL-31 

CRNALL-32 

ClUPPR-33 

CSHMSG-34 

CCLMSG"35 

CCNTR-36 

CNOLOG-37 

CFUNCT-40 

CUNSAV-41 

CCLSUM-42 

C0IR-43 

CDEFLT-44 

CUNSVF-45 

ALPHA* -0 

0NES--1 

ZEROS- -2 

0NEALT--»3 

ZR0ALT--4 

CCITT--5 

0PRSEL--6 



GLOBAL EQUATES FOR THE DEUNA DRIVER 



iMESSAGK TYPE VALUES 



jPORT CONTROL ANO STATUS REGISTER 



SERI 

PCEI 

RXI 

TXI 

DNI 

RCBI 

t 

FATI 
INTR 
INTE 
RSET 



BIT15 
BIT14 
BIT13 
BIT12 
BIT11 
BIT10 

BIT08 
BIT07 
BIT06 

BIT05 



STATUS ERROR INTERRUPT 

PORT COMMAND ERROR INTERRUPT 

RECEIVE RING INTERRUPT 

TRANSMIT RING INTERRUPT 

DONE INTERRUPT 

RECEIVE BUFFER UNAVAILABLE 

FATAL ERROR INTERERUPT 
INTERRUPT SUMMARY <15:00> 
INTERRUPT ENABLE 
UNA RESET 



PORT COMMANDS IN BIT 3 TO BIT 



GETPCB -• BITOO 
GETFNT •• BITOl 
PNOP •■ BITOOrBITOl 
STRT -■ BIT02 
BOOT •• BIT02JBIT00 



PDMO 
TMRO 
TMRF 
RSTT 
STOP 



as 



BIT03 

BIT03JBITOO 

BIT03tBIT0i 

BIT03IBIT02fBlTOO 

OIV05lBXT0atBXT01!BITCLO 



GET ADORESS OF PORT CONTROL BLOCK 
GET COMMAND IN PORT CONTROL BLOCK 
NO OPERATION PERFORMED 
ENABLE XMIT ANO RCVR 
BOOT , -> PRIM LOAD STATE, 
INITATE DOWNLINE LOAD 

POLLING DEMANO/UAKE UP B£T 
SANITt TIMER ENABLE C -1 ITS ON) 
SANITY TIMER OFF 
RESET SANITY TIMER 
SUSPEND UNA OPERATION 
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SEQ 28 



1340 




1341 




1342 




1345 




1344 


100000 


1345 


040000 


1346 




1347 




1348 


000200 


1349 




1350 


000010 


1351 




1352 




1355 




1354 


000000 


1355 


000001 


1356 


000002 


1357 


000003 


1358 




1359 


000005 


1360 


000006 


1361 


000007 


1362 




1363 




1364 




1365 




1366 




1367 




1368 




1369 




1370 




1371 




1372 




1373 




1374 




1375 




1376 




1377 




1378 




1379 


oooooo 


1380 


000002 


1381 




1382 


0OOO04 


1383 


000005 


1384 




1385 


000006 


1386 


000007 


138? 




1388 


000010 


1389 


000011 


1390 




1391 


000012 


1392 


000013 


1393 




1394 


000014 


1395 


000015 


1396 





iPORT CONTROL r. ;0 STATUS REGISTER 1 



XPWR -• BIT15 
ICAB ■• BIT14 



I TRANSCEIVER POWER OK 
\ PORT TO LINK CABLE OK 

I SELF TEST ERROR CODE IN BIT 13 TO 6IT 08 

PCTO -- BIT07 ! PORT COMMAND TIMEOUT 



RMTC ■• BIT03 

i PORT STATE IN BIT 2 TO BIT 

RESET •■ 
PRIMLD-- BITOO 
READY-- BIT01 
RUN •- BIT01JBIT00 

UNIHLT •■ B.TT02.IBIT00 
NIHLT -- BIT02JBIT01 
NIUNI •• BIT02JBIT01JBIT00 



I REMOTE CONSOLE RESERVED (-1) 



I 000 BESET STATE 

I 001 PRIMARY LOAD STATE 

I 010 READY STATE 

I Oil RUNNING STA T E 

I 101 UNIBUS HALTED STATE 

I 110 NI HALTED STATE 

I 111 NI ANO UNIBUS HALTED STATE 



j PORT CONTROL AND STATUS REGISTER 2 

l LOWER 16 ADDRESS BITS OF THE PORT CONTROL BLOCK BASE 
i ADDRESS POINTER IN BIT 15 TO BIT 

iPORT CONTROL ANO STATUS REGISTER 3 

I 1*>PER 2 ADDRESS BITS OF THE PORT CONTROL BLOCK BASE 
i ADDRESS POINTER IN BIT 1 VO BIf 

iPQRT FUNCTIONS 

I FUNCTION CODES ARE AS FOLLOWS 



PFNOP -- 
RDDEFA «> BIT01 



RDPHYA ■ 

WOPHYA • 

RDMULA - 

WOMULA - 

RDRNGS 

WDRNGS 

RDCNTS 
CLRCNTS 

RDMOOE - 
WDMOOE - 



BIT02 

BIT02JBIT00 

BIT02JBIT01 
BITO2!BIT01!BIT0O 

- BIT03 

■ BIT031BIT00 

■ BXT035BIT01 

• BIT03SBIT01IBIT00 

Bir03tBIT02 
BIT031BITQ21BIT00 



NO OPERATION PERFORMED 

READ DEFAULT PHYSICAL ADDRESS 

READ PHYSICAL ADDRESS 
WRITE PHYSICAL ADDRESS 

READ LIST OF MULTICAST ADORESSES 
WRITE LIST OF MULTICAST ADDRESSES 

READ BOTH THE RCVR AND XMIT RINGS 
WRIT£ BOTH THE RCVR ANO XMIT RINGS 

READ COUNTERS 

READ ANO CLEAR COUNTERS 

READ INTERNAL LINK MOOE RtGISTER 
WRITE INTERNAL LINK MODE REGISTER 
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SEQ 29 



1397 


0C0016 


1398 


000017 


1399 




1400 




1401 


000020 


1402 


000021 


1403 




1404 


000022 


1405 


000023 


1406 




1407 




1408 




1409 




1410 




1411 




1412 


000016 


K13 




1414 


000000 


1415 


000006 


1410 


000014 


1417 




1418 




1419 




1420 




1421 




1422 




1423 




1424 




1425 




1426 




1427 




1428 




1429 




1430 




1431 




1432 




1433 




1434 




1435 




1436 




1437 




1438 




1439 




1440 




1441 




1442 




1443 




1444 




1445 




1446 




144 7 




1448 




1449 




1450 




1451 




U52 




1453 





RDSTA -• BIT03JBIT02JBIT01 i READ PORT STATUS 
CLRSTA -« BIT03IBIT02IBIT01IBT.T00 

l READ AND CLEAR PORT STATUS 



DMPMEM ■■ BIT04 
LDMEM «- BITO4JBIT00 



I OWP INTERNAL MEMORY 
j LOAU INTERNAL MEMORY 



RDSYS •- BIT04JBIT01 , READ SYSTEM ID PARAMETERS 
WOSYS •- BIT04JBIT01JBIT00 , WRITE SYSTEM ID PARAMETERS 

ETHERNET PACKET OFFSETS 



HEADER -« 

DESTIN -• 

SOURCC »■ 

PROTOT *« 



14, 


6 
12. 



I OFFSET (SIZE) TO END OF HEADER IN BYTES 

i DESTINATION ADDRESS 

I SOURCE ADDRESS 

\ PROTOCOL TYPE FIELD 



DESTINATION ADDRESS 



♦ 6 



♦ 12. 

♦ 14. 



C6 BYTES) 



SCKttCE ADDRESS 



C6 BYTES) 



PROTOCALL TYPE 



DATA 



MORE DATA 



XMIT RING DESCRIPTOR DEFINITIONS 



TDRBfO 



NOTHING NEEDED 



TDRB*2 



NOTHING NEEDED 



TDRB»4 
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SEQ 30 



1454 


000400 


1455 


001000 


1456 


002000 


1457 


004000 


1458 


010000 


1459 




1460 


040000 


1461 


100000 


1462 




1463 




1464 




1465 


002000 


1466 


C0400C 


1467 


010000 


1468 




1469 


040000 


1470 


100000 


1471 




1472 




1473 




1474 




1475 




1476 




1477 




1478 




1479 




1480 




1481 




1482 




1483 




1484 




1485 




1486 




1487 




1488 




1489 




1490 




1491 




1492 




1493 


0O40O0 


1494 


010000 


1495 


020000 


1496 




1497 




1498 




1499 




1500 




1501 




1502 


020000 


1503 




1504 




1505 




1506 




1507 




1508 


002756 


1509 


002 756 


1510 


000006 



ENP 
STP 
DEF 
ONE 
MORE 

ERRS 
OWN 



t YDRB*6 



RTRY 
LCAR 
LCOL 

UOTO 

BUFL 



BIT08 
BIT09 
BIT10 
BITll 
BIT12 

BIT14 
BIT15 



BIT10 
BITll 
BIT12 

BIT14 
BIT15 



i ♦ 



RCVR RING DESCRIPTOR DEFINTIONS 



i RDBB*0 

i 
l 

i RDRB*2 

i 



NOTHING NEf-DKD 



NOTHING NEEDED 



RDRB»4 



END OF PACKET FLAG 

STOP OF PACKET FLAG 

DEFFERRING PACKET FLAG 

XMIT SUCCESSFUL AFTER ONE RETRY 

XMIT SUCCESSFUL AFTER MORE THAN 

ONE RETRY 
lP°'R SUMMARY BIT 
OWNERSHIP BIT C"l UNA, -0 HOST) 



j RETRY ERROR BIT 

I LOST CARRIER ERROR BIT 

i LATE COLLISION ERROR BIT 

» UNIBUS TIMEOUT ERROR BIT 
I BUFFER LENGTH ERROR BIT 



1 <- INDICATES SAME AS DEFINED FOR XMIT RING 





j ENP 
iSTP 


BIT08 t 
BIT09 , 




CRC 

OFLO 

FRAM 


BITll , 
BITi2 , 
EIT13 , 




jERRS 

lOWN 


BIT14 , 
BIT15 j 


{ RDRB* 


6 






NCHN 


BIT13 , 




lUBTO 
iBUFL 


BIT14 , 
BIT15 t 


XPKLEN 
RPKLEM 
NO.NTR 


-• 1518. 
•• 1518. 

*" 6 





ENO OF PACKET FLAC 
STOP OF PACKET FLAG 

CRC ERROR IN RECEIVED PACKET 
MESSAGE OVERFLOW 
FRAMING ERROR 

ERROR SUMMARY BIT 

OWNERSHIP BIT (•! UNA, -0 HOST) 



SEi TO INDICATE UNA IN NO 
BUFFER CHAIN ON RCVR MOOE 

UNIBUS TIMEOUT ERROR BIT 
BUFFER LENGTH ERROR BIT 

TRANSMIT PACKET LENGTH 

RECIEVE PACKET LENGHT 

NUMBER OF ENTRIES IN DESCRIPTOR RINGS 



CZUMCBO DEUNA NI EXE 
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SEQ 31 



1511 


000050 


1512 




1513 


000 i 32 


151* 


000004 


1515 




1516 




1517 




1518 




1519 


0OOO22 


1520 


000027 


1521 


000030 


1522 


000031 


1523 


000035 


1524 


000042 


1525 


000053 


1526 




1527 




1528 




1529 




1530 


00001 > 


1531 


oooo; ) 


1532 


000022 


1533 


000030 


1534 


000032 


1535 




1536 




1537 




1538 




1539 


000016 


1540 


000020 


1541 


000022 


1542 


000030 


1543 


000032 


1544 


000040 


1545 


000042 


1546 


000050 


1547 


000052 


1548 




1549 




1550 




1551 


000002 


1552 


000004 


1553 


OOOOIO 


1554 


0OO014 


1555 


000016 


1556 


000020 


1557 


0OO024 


1558 


000030 


1559 


000032 


1560 


000034 


1561 


000040 


1562 


000044 


1563 


000050 


1564 


000054 


1565 


000060 


1566 


000064 


1567 


000066 



TBLLEN 



ST8LEN ■ 
FRDAOR "■ 4 



J 



40. 
90, 



» NODE TABLE LENGTH (CHANGE STBLEN IF 
I THIS IS CHANGED, OR ELSE!) 
j SUMMARY TABLE LENGTH (. - 2.25 X TBLLEN) 
j OFFSET FOR MESSAGE HEADERS 



i SYSTEM ID REPLY MESSAGE OFFSETS 



SIRCPT 


■ • 


22 


SIVERS 


■ ■ 


27 


S.IECO 


m ii 


30 


SIUECO 


■ * 


31 


SIFNCT 


■ ■ 


35 


SIAOOR 


■ ■ 


42 


SIDEV 


■ ■ 


53 



I LOOP DIRECT OFFSETS 



LDSKIP 


a a 


16 


LDFCU 


■ a 


20 


L0ADR1 


■ M 


22 


L0FCT2 


m m 


30 


LDA0R2 


m n 


32 



I FULL ASSIST OFFSETS 

J 



FASKIP • 


• 16 


FAFCTl - 


• 20 


FAADR1 - 


- 22 


FAFCT2 ■ 


- 30 


FAADR2 • 


- 32 


FAFCT3 • 


- 40 


FAA0R3 ■ 


- 42 


FAFCT4 - 


- 50 


FAADR4 - 


- 52 


R OFFSET 


S 


C.SECS - 


- 2 


C.PREC - 


- 4 


C.MREC - 


» 10 


C.RERB - 


• 14 


C.RERR - 


• 16 


CROAT - 


- 20 


C.RMOB • 


• 24 


C.RLIN - 


■ 30 


C.RLCX • 


• 32 


C.PXMT - 


■ 34 


C.MXMT • 


- 40 


C.PXM3 ■ 


a 44 


C.PXM2 • 


- 50 


C.PXMO • 


- 54 


C.XOAT • 


- 60 


CXMDB » 


• 64 


C.XABB • 


* 66 
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SEQ 32 



1568 




000070 


1569 




000074 


1570 






1571 






1572 






1573 






1574 






1575 






1576 






1577 






1578 






1579 


002200 




1580 


002310 


000000 


1581 


002312 


000000 


1582 


002314 


oooooo 


1585 


002316 


000000 


1584 


002320 


oooooo 


1585 


002322 




1586 


002344 




1j87 


002366 


oooooo 


1588 


002370 


oooooo 


1589 


002372 


oooooo 


1590 


002374 


oooooo 


.591 


002376 


oooooo 


1592 


002400 


oooooo 


1593 


002402 


oooooo 


1594 


002404 




1595 


002524 


177777 


1596 


002526 


17777? 


1597 


002530 




1598 


002650 


177777 


1599 


002652 


177777 


1600 


002654 


177777 


1601 


002656 




1602 


003142 


177777 


1603 






1604 






1605 






1606 


003144 


oooooo 


1607 


003146 


oooooo 


1608 


003150 


oooooo 


160° 


003152 


oooooo 


1610 


003134 


oooooo 


1611 


003156 


oooooo 


1612 


003160 


000 


1613 


003161 


000 


1614 


0O3162 


000 


1615 


003163 


000 


1616 






1617 


003164 


056060 


1618 


003166 


056161 


1619 


003170 


056254 


1620 


003172 


056325 


1621 


003174 


056376 


1622 


003176 


056476 


1623 


003200 


056611 


1624 


003202 


056722 



C.XABT »- 
C.COLL -« 



70 
74 



.SBTTL GLOBAL DATA SECTION 

» ♦♦ 

I THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 

i IN MORE THAN ONE TEST, 

} -- 

j COMMAND LINE BUFFER, DATA LOCATIONS AND MESSAGES FOR ACTION ROUTINES 

i BUFFER FOR OPERATOR COMMANDS 

i 

I BUFFER FOR NODE ADDRESS 



I BUFFER FOR ALPHANUM. ADDRESS STRING 

i POINTER FOR BEGINING OF ADDRESS STRING 

jLOC. TO HOLD MESSAGE TYPfc 

»LOC. TO HOLD MESSAGE SIZE 

jLOC. TO HOLD NO. OF MESSAGE COPIES 

iLOC. TO HOLD NO, OF PASSES 

I IOC. TO HOLD NOOE TYPE FOR NODE TABLE SETUP 

lUSED BY NODE TABLE SUBROU T INES 

i SPACE FOR NOOE TABLE 

jFILL LAST FOU* BYTES OF TABLE WITH ONES 

I SPACE FOR SAVE TARLE 

I ILLEGAL ADDRESS FOR COMPARISON 

i (MUST NOT BE PHYSICALLY SEPARATED FROM 

I ENO OF SAVTBL) 

jSPACF FOR SUMMARY TABLE 



jLOC. TO HOLD AOOR. OF CMC LINE BUFFER 
»LOC. TO HOLD AODR. OF PARSING TREE 
jLOC. TO HOLD ADOR. OF ACTION ROUTINE 
jLOC. TC BE A COUNTER LOCATION 
iLOC. TO HOLD NUMERIC VALUE FROM PARSE 
lLOC. TO HOLD RADIX(LO) C */-(Hl BYTE) 
iRETlrtN -0 IF ENOUGH OF COMMAND FOUND 
iRETLHN CODE IF NO ERROR FOUNO 
jRETURN IF 12 DIGIT ADDRESS ENTERED 
i RE TURN -1 IF ERROR IN OPERATOR SELECTED 
I MESSAGE INPUT OCCURED, FOR GOOD INPUT 



CMDBUF 


,BLKB 


72. 


KEYWD1 


.WORD 





KEYWD2 


.WORD 





ADRBUF 


.WORD 







.WORD 







.WORD 





STRBUF 


.BLKB 


18. 


STRBU1 


.BLKB 


18, 


CBOADR 


.WORD 





P$TYPE 


.WORD 





PISIZE 


.WORD 





P$CPYS 


.WORD 





PlPASS 


.WORD 





NODTY; 


.WORD 





SLOT i : 


.WORD 





NOOTBL 


.BLKW 


TBLLEN 




.WORD 


177777 




.WORD 


177777 


SAVTBL 


.BLKW 


TBLLEN 


ILLADR 


.WORD 


177777 




.WORD 


177777 




.WORD 


1/7777 


STATBL 


.BLKW 


STBLEN 




.WORD 


1/7777 


iCOMMANO LINE 


TRAVERSE 


PIBIFA 


.WORD 





PUREE 


.WORD 





PIACTt 


.WORD 





PICNVi 


.WORD 





PINOM: 


.WORD 





PJRADX, 


.WORD 





PINNUF, 


.BYTE 





PIGDBD' 


.BYTE 





PIA^RR 


.BYTE 





PIMERR: 


.BYTE 





HLPTAB- 


.WORD 


HELP1 




.WORD 


HELP2 




.WORD 


HELP3 




.WORD 


HCLPO 




.WORD 


HELP5 




.WORD 


HELP6 




.WORD 


HELP? 




.WORD 


HELP8 



H3 
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SEQ 33 



1625 


003204 


057012 




1626 


003206 


057101 




1627 


003210 


057172 




162ft 


003212 


057270 




1629 


003214 


057375 




1630 


003216 


057474 




1631 


003220 


057573 




1632 


003222 


057676 




1633 


003224 


057765 




1634 


003226 


060070 




1635 


003230 


060140 




1636 


003232 


060243 




1637 


003234 


060321 




1638 


003236 


060404 




1639 


003240 


060505 




164C 


003242 


060605 




1641 


003244 


060735 




1642 


003246 


061021 




1643 


003250 


061125 




1644 


003252 


061227 




1645 


003254 


061346 




16<6 


003256 


061416 




1647 


003260 


000000 




1648 


003262 


062372 




1649 


003264 


062400 




1650 


003266 


062405 




1651 


003270 


062413 




1652 


003272 


062420 




1653 


003274 


062425 




1654 


003276 


062433 




1655 








1656 








1657 








1658 


003300 






1659 


003300 


000130 




1660 


003302 


000001 




1661 


003304 


00OO01 




1662 


003306 


000001 




1663 


003310 


000001 




1664 


003312 


000100 




1665 


003314 


oooooo 




1666 








1667 


003316 






1668 


003316 


003334 




1669 


003320 


003464 




1670 


003322 


003465 




1671 


003324 


003466 




1672 


003326 


003467 




1673 


003330 


0034/0 




1674 


003332 


003570 




1675 








1676 


003334 


04') 


041 




003337 


04 3 


044 




003342 


046 


04 7 




003345 


051 


052 




003350 


054 


055 




003353 


060 


061 





.WORD 


HELP9 




.WORD 


HELP10 




.WORD 


HELP 11 




• WORD 


MELP12 




.WORD 


HELP13 




.WORD 


HELP 14 




. WORD 


HELP15 




.WORD 


HELP16 




.WORD 


HELP17 




. -3RD 


HELP18 




. WORD 


HELP19 




.WORD 


HELP20 




.WORD 


HELP21 




.WORD 


HELP22 




.WORD 


HELP23 




.WORD 


HELP24 




.WORD 


HELP25 




.WORD 


HELP26 




.WORO 


HELP27 




.WORD 


HELP28 




.WORD 


HELP29 




.WORD 


HELP30 


HLPENO: .WORD 





HSGTAB; .WORD 


MSGTYO 




.WORD 


M5GTY1 




.WORD 


MSGTY2 




.WORD 


HSGW3 




.WORD 


MSGTY4 




.WORD 


MSGTY5 




.WORD 


MSGTY6 


j THIS SECTION 


DEFINES THE 


MSGCNT:: 




MSGOC 


.WORD 


EMSGO -MSGOO 


MSG1C 


.WORD 


EMSG1-MSG01 


MSG2C 


.WORD 


EMSG2-MSG02 


MSG3C 


.WORD 


EMSG3-MSG03 


MSG4C 


.WORD 


EMSG4-MSG04 


MSG5C 


.WORD 


EMSG5-MSG05 


MSG6C 


♦ WORD 





HSGAD 


: 






.WORD 


MSGOO 




.WORD 


MSG01 




.WORD 


MSG02 




.WORD 


MSG03 




.WORD 


MSG04 




.WORD 


MSG05 




.WORD 


OPSLBr 



iMESSAGE TYPE ASCII ADDRESS TABLE 



I THE NUMBER OF BYTES IN EACH MESSAGE 



04^ MSGOO s { .ASCII \ I "*>$*£' O**, -/012345678SM \ < ■ > ?BABCDEFGHIJKLMNOPQRSTUVWXY?\ 

045 

050 

053 

057 

062 
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SEQ 34 



1677 



1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 

1689 

1690 

1691 

1692 

1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 



003356 
003361 
003364 
003367 
00337c 
003375 
003400 
003403 
003406 
003411 
003414 
003417 
003422 
003425 
003426 
003431 
003434 
003437 
003442 
003445 
003450 
003453 
003456 
003461 
003464 
003464 
003465 
003465 
003466 
003466 
003467 
003467 
003470 
003470 
003470 
003476 
003504 
003512 
003520 
003526 
003534 
003542 
003550 
003556 
003564 
003570 
003570 



003674 
003676 
003 700 
003702 
003704 



063 

066 
071 
074 
077 
102 
105 
110 
113 
116 
121 
124 
127 
132 
133 
055 
103 
106 
111 
114 
117 
122 
125 
130 

377 

000 

252 

125 



177603 
047321 
143325 
104116 
105025 
111523 
137642 
135075 
052012 
151172 
166632 



003672 000000 



000000 
000000 
000000 
000074 
OOOOOO 



064 
067 
072 
075 
100 
103 
106 
111 
114 
117 
122 
125 
1.30 

135 
101 
104 
107 
112 
115 
120 
123 
126 
131 



157427 
163715 
142304 
052606 
12^754 
030030 
143531 
066730 
053627 
165044 
016147 



065 
070 
073 
076 
101 
104 
107 
112 
115 
120 
123 
126 
131 

136 
102 
105 
110 
113 
116 
121 
124 
127 
132 



0310.11 
105221 
040041 
172334 
111337 
145064 
063617 
026575 
070071 
031605 



EMSGO 
MSG01 
EMSG1 
MSG02 
EMSG2 
MSG03 
EMSG3 
MSG04 
EMSG4 
MSG05 



EMSG5: 
OPSLBF 



.ASCII \[ ]t-ABCDEFGHIJKLfJNOPQRSTUVWXYZ\ 



.BYTE 
.BYTE 
.BYTE 
• BYTE 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BLKB 



CFLAG; .WORD 



I ALPHANUMERIC 



37 7 


252 
125 



I MESSAGE OF ALL ONES 

j MESSAGE OF ALL ZEROS 

j MESSAGE OF ALTERNATING ONES 

\ MESSAGE OF ALTERNATING ZEROS 



j CCITT 511 BIT TEST PATTERN 
177603,157427,031011,047321,163715,105221 

143325.142304,040041,104116,052606,172334 

105025,123754.111337,111523,030030,145064 

137642,143531,063617,135075,066730.026575 

052012 , 053627 , 070071 , 151172 , 165044 ,031605 

166632,016147 

66. jBUFFER FOR OPERATOR SELECTED MESSAGE TYPE 

jACTION ROUTINE CMD ARGUMENT FLAG 



.jCLOCK TABLES, EVENT LOG AND POINTERS 

CLKCSR; .WORD , CLOCK CSR ADDRESS 

, CLOCK INTERRUPT LEVEL 

i CLOCK INTERRUPT VECTOR 

60. , CLOCK'S FREQUENCY IN HERTZ 

, CLOCK'S CSR VALUE TO INTRPT. ENABLE IT 



CLKBR: .WORD 

CLKVEC: .WORD 

CLKHZ : . WORD 

CLKEN: .WORD 
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SEQ 35 



1706 






1707 


00* 70S 


000 '00 


1708 


0C37.*.0 


OOC 00 


1709 


003712 


0000)0 


1710 






1711 


003714 


(00000 


1712 


003716 


cooooo 


1713 


005720 


000000 


1714 






1715 






1716 






1717 






1718 






1719 






1720 






1721 


003722 




1722 






1723 


003722 


026006 


1724 


003724 


030764 


1725 


003726 


033742 


1726 


003730 


036720 


1727 


003732 


041676 


1728 


003734 


044654 


1729 






1730 






1731 






1732 






1733 






1734 


003736 




1735 






1736 


003736 


004162 


1737 


003740 


00/140 


1738 


003742 


012116 


1739 


003744 


015074 


1740 


003746 


020052 


1741 
1742 
1743 


003750 


023030 






1744 






1745 


003752 


003772 


1746 


003754 


004066 


1747 


003756 


003772 


1748 


003760 


004066 


1749 


003762 


003772 


1750 


003764 


004066 


1751 


003766 


004054 


1752 


003770 


004150 


1753 






1754 






1759 






1760 


003772 


000006 


1761 






1762 






.1763 






1764 








003772 


002 756 




003/74 


004162 



TIMMIN 
TIMSEC 
TIMTCK 

TIMER1 
TIMER2 
TIMERS 



.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.EVEN 



t PLACE TO KEEP TIME-SINCE -START 

I PLACE TO KEEP NO. OF TICKS/SEC. 

t EVENT TIMER »l (TICKS) 

j EVENT TIMER 02 (TICKS) 

l EVENT TIMER 03 (SECONDS; 



TABLE OF START ADDRESS OF RECIEVE RING BUFFERS 



RRNGTD : : 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



RRG001 
RRG002 
RRG003 
RRG004 
RRG005 
RRG006 



TABLE OF START ADDRESS CF TRANSMIT RING BUFFERS 



XRNGTCI 





.WORD 


XRG001 




.WORD 


XRG002 




.WORD 


XRG003 




.WORD 


XRG004 




.WOPD 


XRG005 




. WORO 


XRG006 


l 




POINTERS 


XRGSRTj 


t.WORD 


XRING 


RRGSRT: 


j.WORD 


RR1NG 


XRGCUR : 


i , WORD 


XRING 


RRGCUR.- 


: .WORD 


RRTNG 


XRGNX1 * 


j.WORD 


XRING 


RRGNXT: 


J.WORD 


RRING 


XRGLSTs 


i .WORD 


XRING*50 


RRGLST : 


{.WORD 


RRINGf50 



TO DESCRIPTOR RING ENTRIES 



FIRST ENTRY IN TRANSMIT RING 
FIRS I ENTRY IN RECIEVE RING 
CURREN1 ENTRY IN TRANSMIT RING 
CURRENT ENTRY IN RECIEVE RING 
NEXT ENTRY IN TRANSMIT RING 
NEXT ENTRY IN RECIEVE RING 
LAST ENTRY IN TRANSMIT RING 
LAST ENTRY IN RECEIVE RING 
VALUE - NO.NTR X 10. 



XRING: : .REPT 6 



.NLIST 

RNGFRM XRGOO.B.O 

.LIST 

.ENDR 

.WORD RPKl.EN 

.WORD XRG001 



j SEGMENT LENGTH 

j SEGMENT BUFFER ADDRESS 



!<3 
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SEQ 36 





003776 


000000 




004000 


000000 




004 OOP 


cooooo 




004004 


002756 




004006 


007140 




004010 


000000 




004012 


000000 




004014 


000000 




004016 


002756 




004020 


012116 




004022 


000000 




004024 


000000 




004026 


000000 




004030 


002756 




004032 


015074 




004034 


000000 




004036 


000000 




004040 


oooooo 




004042 


002756 




004044 


020052 




004046 


OOOOOO 




004050 


OOOOOO 




004052 


OOOOOO 




004054 


002756 




004056 


023030 




004060 


OOOOOO 




004062 


OOOOOO 




004064 


OOOOOO 


1765 






1769 






1770 


004066 


000006 


1771 






1772 






1773 






1774 








004066 


002756 




004070 


026006 




004072 


100000 




004074 


OOOOOO 




004076 


OOOOOO 




004100 


002756 




004102 


030764 




004104 


100000 




004106 


OOOOOO 




004110 


OOOOOO 




004112 


002 756 




004114 


033742 




004U6 


100000 




004120 


OOOOOO 



RRING: 



.WORD 
.WORD 
.WORD 









.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


RPKlEN 

XRG002 










.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


RPKLEN 

XRG003 










.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


RPKLLN 

XRG004 










.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


RPKLEN 

XRG005 










.WORD 
( W0flD 
.WORD 
.WORD 
.WORD 


RPKLEN 
XRG006 






s 


.REPT 6 

.NLIST 

RNGFRM 

.LIST 

.ENOR 

.WORD 

.WORD 

.WORD 

.UORD 

.WORD 


> 

RRGOO.B, 100000 

RPKLEN 

RRG001 

100000 








.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


RPKLEN 

RPG002 

100000 








.WORD 
.WORD 
.WORD 
.WORD 


RPKLEN 
RRG003 
100000 






OWNERSHIP AND STATUS BITS 

STATUS 

SEQUENCE NUMBER 

SEGMENT LENGTH 
SEGMENT BUFFER ADDRESS 
OWNERSHIP AND STATUS BITS 
STATUS 
SEQUENCE NUMBER 

SEGMENT LENGTH 
SEGMENT BUFFER ADDRESS 
OWNERSHIP AND S T ATUS BITS 
STATUS 
SEQUENCE NUMBER 

SEGMENT LENGTH 
SEGMENT BUFFER ADDRFSS 
OWNERSHIP AND STATUS BITS 
STATUS 
SEQUENCE NUMBER 

SEGMENT LENGTH 
SEGMENT BUFFER ADDRESS 
OWNERSHIP ANO STATUS BITS 
STATUS 
SEQUENCE NUMBER 

SEGMENT LENGTH 
SEGMENT BUFFER ADDRESS 
OWNERSHIP ANO STATUS BITS 
STATUS 
SEQUENCE NUMBER 



SEGMENT LENGTH 
SEGMENT BUFFER ADDRESS 
OWNERSHIP ANO STATUS BITS 
STATUS 
SEQUENCE NUMBER 

SEGMENT LENGTH 
SEGMENT BUFFER AOORESS 
OWNERSHIP ANO STATUS BITS 
STATUS 
SEQUENCE NUMBER 

SEGMENT LENGTH 
SEGMENT BUFFER ADDRESS 
OWNERSHIP AND STATUS BITS 
STATUS 
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SEQ 37 



004122 000000 



.WORD 



1775 
1779 
1780 
1781 
1782 
1783 
1734 
1785 
1786 
3 787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 

1800 

******* 

1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 



004124 
004126 
004130 
004132 
004134 

004136 
004140 
004142 
004144 
004146 

004150 
004152 
004154 
004156 
004160 



004162 
007140 
012116 
015074 
020052 
023030 

026006 
030764 

033742 
036720 
041676 
044654 



04 7632 
047634 
04 7636 
047640 

047642 
04 7644 
04 7646 
047650 



002756 
036720 
100000 
000000 
000000 

002756 
041676 
100000 
000000 
000000 

002756 
044654 
100000 
000000 
000000 



000000 

oooooo 

000000 

oooooo 

oooooo 
oooooo 
oooooo 
oooooo 





.WORD 


RPKLEN 




.WORD 


RRG004 




.WORD 


100000 




.WORD 







.WORD 







.WORD 


RPKLEN 




.WORD 


RRG005 




.WORD 


100000 




.WORD 







.WORD 







.WORD 


RPKLEN 




.WORD 


RRG006 




.WORD 


100000 




.WORD 







.WORD 





XRG001 


: .BLKB 


XPKLEN 


XRG002 


:.BLKB 


XPKLEN 


XRG003 


:.BLKB 


XPKLEN 


XRG004 


: .BLKB 


XPKLEN 


XRG005 


:.BLKB 


XPKLEN 


XRG006 


:.BLKB 


XPKLEN 


RRG001 


;.BLKB 


RPKLEN 


RRG002 


:.BLKB 


RPKLEN 


RRG003 


:,BLKB 


RPKLEN 


RRG004 


:.BLKB 


RP U.EN 


RRG005 


:.BLKB 


RPKLEN 


RRG006 


: .BLKB 


RPKLEN 



t SEQUENCE NUMBER 

SEGMENT LENGTH 
SEGMENT BUFFER ADDRESS 
OWNERSHIP AND STATUS BITS 
STATUS 
SEQUENCE NUMBER 

SEGMENT LENGTH 
SEGMENT BUFFER ADDRESS 
OWNERSHIP AND STATUS BITS 
STATUS 
SEQUENCE NUMBEP 

SEGMENT Lt'NGTH 
SEGMENT BUFFER ADDRESS 
OWNERSHIP AND STATUS BITS 
STATUS 
SEQUENCE NUMBER 



j XMIT RING BUFFERS 



} RECIEVE RING BUFFERS 



{ + + * + 4. ************ 4 ********* *******♦*♦*< *** + + ****♦ + *** + ** + * + *4*********** + + ** + *8 

I 

I.INF0F1ATI0N ABOUT THE CURRENT UNIT AS OBTAINED FROM THE HARDWARE P-TABLE 

J 

. *+***>******♦**** ************** ************* ******* **************************************** 



PCSRO 
PCSR1. 
PCSR2 
PCSR3 

PCSROC 
PCSR1C 
PCSR2C 
PCSR3C 



.WORD 

.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.WORD 



C a 7652 OOOOOO 



UNACSRj;.WORO 



jPCSRS OF CURRENT SLOT 
I ADDRESS OF PCSRO 
i 1 

i 2 

l 3 

jPCSRO CONTENTS 

}PCSR1 CONTENTS 

{PCSR2 CONTENTS 

{PCSR3 CONTENTS 



iCSR 



(PORT COMMAND FIELD 
(STATE L SELF TEST FIELDS 
(PCB ADDRESS LO 15 BITS 
(PCB ADDRESS HI 2 BITS 
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SEQ 38 



1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1348 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1059 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 



047654 
047656 

047660 
047662 



047666 
047670 
047672 
047674 



0476/6 
047700 
047702 
047704 
04/706 
047710 
047712 
047714 
047716 
047720 
047722 
047724 
047726 
047730 
047732 
047734 
047736 
04 7 740 
04 7742 
047744 



047750 
047752 
04 7754 
047756 



000000 
000000 

000000 
000000 



047664 000000 



000000 
000000 
000000 
000000 



047746 
000000 
047750 
000000 
047760 
047770 
050000 
050040 
050100 
050124 
050150 
050260 
050270 
050300 
050310 
050320 
050330 
050350 
050360 
050370 



047746 000000 



00C002 
000000 
000000 
000000 



UNAVEC: i .WORD 

UNAHRI ; ; . WORD 

FRESIZ::.WORD 

FREMEM::.WORD 



{VECTOR 
{PRIORITY 

{POINTER TO WORD CONTAINING SIZE OF FREE MEMORY 
{POINTER TO FREE MEMORY SPACE 



UNIT:: .WORD {CURRENT UNIT NUMBER BEING TESTED 

; PORT CONTROL BLOCK FUNCTION STRUCTURES 

{PORT CONTROL BLOCK 

PORT FUNCTION 

PORT FUNCTION DEPENDENT PARAMETERS 
PORT FUNCTION DEPENDENT PARAMETERS 
PORT FUNCTION DEPENDENT PARAMETERS 



} NO OP 

{ FILL IN THE HOLE 

; READ DEFAULT PHYSICAL ADDRESS 

j FILL IN ANOTHER HOLE 

j READ PHYSICAL ADDRESS 

j WRITE PHYSICAL ADDRESS 

j READ MULTICAST ADDRESS LIST 

j WRITE MULTICAST ADDRESS LIST 

{ READ DESCRIPTOR RINGS 

{ WRITE DESCRIPTOR RINGS 

j READ COLTERS 

{ READ AND CLEAR COUNTERS 

j READ MODE 

{ WRITE MODE 

j READ STATUS 

; READ AND CLEAR STATUS 

s DUMP INTERNAL MEMORY 

{ LOAD INTERNAL MEMORY 

5 READ SYS ID PARAMETERS 

} WRITE SYS ID PARAMETERS 



PCBBO: 


.WORD 





{ 


PCBB2: 


.WORD 





{ 


PCBB4: 


.WORD 





» 


PCBB6: 


.WORD 





{ 


s 




FUNCTION TABLE 


FUNTAB 


» 


.WORD 


$PNOP 






.WORD 









.WORD 


$RDDE 






.WORD 









.WORD 


$RDPH 






.WORO 


$WDPH 






.WORD 


*ROMC 






.WORD 


$WDMC 






.WORD 


iRDRN 






.WORD 


$WDRN 






.WORD 


iRDCN 






.WORD 


$CLRC 






.WORD 


$RDMO 






.WORD 


IWDMO 






.WORD 


$RDST 






.WORD 


$CLRS 






.WORD 


$DMEM 






.WORD 


$LMEM 






.WORD 


$RDSY 






.WORD 


$WTSY 


• ■ 
• 

j 


PNOP 


«« o 




!cVEN 










$PNOP: : 




.WORD 



RDDEFA •- BIT01 



.EVEN 



tRDDE:: 
DEPADR; : 



RDPHYA 



.WORD 


2 


.WORO 





.WORD 





.WORD 






BIT02 



} PORT NO-OPERATION 



i NO-OP 



i READ DEFAULT PHYSICAL. ADDRESS 



{ PCBB*0 FUNCTION READ DFFAULT 

j PCBB*2 PHYSICAL ADDRESS 

j PCBB*4 

i PCBB*6 



} READ PHYSICAL ADDRESS 
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SEQ 39 



1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
190o 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
.,927 
.28 



047760 
047762 
047764 
047766 



047770 
047772 
047774 
047776 



050000 
050002 
050004 
050006 

050010 



050040 
050042 
0S004* 
050046 

050050 
050052 
050054 
050056 



050100 
050102 
050104 
050i06 



000004 
000000 
OOOuOO 
000000 



000005 
000000 
000000 
000000 



000006 
050010 

cooooo 

000000 



000007 
050050 
000400 
000000 

000253 
001000 

ocoooo 



000010 
050110 
000000 
000000 



.EVEN 





$RDPH: : 
PHYADR;: 


.WORD 4 
. WORD 
, WORD 
. WORD 


i 
i 
\ 
\ 


PCBB*0 READ CURRENT (ACTIVE) 
PCfcB+2 PHYSICAL ADDRESS 
PCB8*4 
PCBB f 6 


; ♦ 


WDPHYA * 


* BIT02!BIT00 


\ 


WRITE PHYSICAL ADDRESS 


!even 












$WDPH: ; 


.WORD 5 
.WORD 
.WORD 
.WORD 


i 

i 
i 
i 


PCBBtO WRITE PHYSICAL ADDRESS 

PCBB*2 

PLBBf4 

PCBB ♦ 6 


; f 


RDMULA * 


* LJIT02JBIT01 


» 


READ MULTICAST ADDRESS LIST 


.EVEN 












$RDMCs: 


. WORD 6 
.WORD UCB6 
. WORD 
, WORD 


• 
i 
i 


FUNCTION CODE 
UCBB ADDRESS 
PCBB*4 
PCBBv6 



UCB6: 



.BLKW 



12. 



i ENOUGH ROOM FOR 4 ADDRESSES 



WDMULA 



BIT02!BIT01!PIT00 j WRITE MULTICAST ADDRESS LIST 



EVEN 



SWDMC: : 



UCB7 SJ 



.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.BLKW 



7 

UCB7 
400 


253 
1000 

9. 



RDRNGS 



BIT03 



j i UNCTION CODE 

I UCBB ADDRESS 

{ LENGTH OF LIST - 1 

i PCBB+6 

j MULTICAST ADDRESS FOR LOOPBACK 



} ROOM FOR THREE MORE ADDRESSES 



! READ BOTH THE RCVR AND XMIT RINGS 



.EVEN 



$RDRN: } 



.EVEN 



050110 003772 



UCB10; : 



.WORD 10 

.WORD UCB10 
. WORD 
. WORD 



.WORD XRXNG 



l FUNCTION CODE 
} UCBB ADDRESS 

j NULL 
j NULL 



5 UCBB 



CZUAC80 DEWA NI EXERCISER DIAG MACRO M1200 
GLOBAL OATA SECTION 



B4 
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SEQ 40 



1929 050112 


002000 


1930 050114 


000000 


1931 050116 


004066 


1932 050120 


002000 


1933 050122 


000000 


1934 




193b 




1936 




1937 




1938 




1939 




1940 




1941 




1942 050124 


000011 


1943 050126 


0W134 


1944 050130 


000000 


1945 050132 


oooooo 


1946 




1947 




1948 




1949 050134 




1950 050134 


003772 


1951 050136 


000 


1952 050137 


005 


1953 050140 


ooooos 


1954 




1955 050142 


004066 


1956 050144 


000 


1957 050145 


005 


1958 050146 

1959 

1960 


000006 




1961 




1962 




1963 




1964 




1965 




1966 




1967 050150 


0OO012 


1968 050152 

1969 

1970 


050160 




1971 




1972 050154 


000000 


1973 




1974 050156 


000100 


1975 




1976 




1977 




1978 




1979 050160 




1980 050160 


000000 


1981 050162 


000000 


1982 050164 


cooooo 


1983 050166 


000000 


1984 050170 


000000 


i985 050172 


OOOQQO 



I 
\ - 

.EVEN 



.WORD 2000 
.WORD 
.WORO RRING 
.WORD 2000 
.WORD 



WDRNGS ■« BIT03IBIT00 



♦WCRNjs 



.WORO 11 

.WORD UCB11 
.WORD 
.WORD 



.EVEN 



UCBIU: 



.WORD 
.BYTE 

.BHE 



XRING 



5 



.WORD 
.BYTE 
.BYTE 



RRING 



5 



i ♦ 

l 
I - 

.EVEN 



RDCNTS -• BIT03!BIT0l 



IRDCNj: 



.WORD 12 
.WORD UCB12 



. WORO 
.WORD 100 



.EVEN 



UCB13: i 
UCBi2is 



.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 






I UCBB*2 

i UCBB*4 

I UCBB*6 

I UCBB* 10 

I UCBB* 12 



I WRITE BOTH THE RCVR AMD XMIT RINGS 



I FUNCTION COOE 

i UCBB ADDRESS 

I NULL 

I NULL 



.WORD NO.NTR » 



.WORD NO.NTR j 



TRANSMIT RING BASE ADDRESS 

HI BITS Of TRANSMIT RING BASE ADDRESS 

FIVE WORDS PER RING ENTRY (1 FOR PORT DRIVER 

EIGHT TRANSMIT DESCRIPTORS IN THE RING 

RECEIVE RING BASE ADOMESS 

HI BITS OF RECEIVE RING BASE ADDRESS 

FIVE WORDS PER RING ENTRY (1 FOR PORT DRIVER 

EIGHT RECEIVE DESCRIPTORS IN THE RING 



j READ COUNTERS 



i FUNCTION 

I UCBB ADDRESS 

j DEFAULT COUNT OF COUNTER LIST 

j 40 (OCTAL) 

♦ NULL 

I (• OF WORDS IN LIST « UPPER B>TE) 

j MAX NUMBER VALUfc * 32 (DECIMAL) * 



i UCBB 

i UCBB*2 

i UCB8»4 

1 UCBB»6 

l UCBB* 10 

I UCBBU2 
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1986 
1987 

1988 

1989 

1990 

1991 

1992 

1995 

1994 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

20?8 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

203 7 

2036 

2039 

2040 

2041 

2042 



050174 
0501 76 
050200 
050202 
050204 
050206 
050210 
050212 
050214 
050216 
050220 
050222 
050224 
050226 
050230 
050232 
050234 
050236 
050240 
050242 
050244 
050246 
050250 
050252 
050254 
050256 



050260 
050262 

050264 

050266 



050270 
050272 



050274 

050276 



000000 
000000 
000000 
000000 

ooocoo 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

oooooo 
oooooo 
oooooo 
oooooo 



000013 
050160 

oooooo 

000010 



000014 

oooooo 



oooooo 

oooooo 



C4 
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:B8S8 


8 


mm 


.WORD 





UCBB* 20 


.WORD 





UCBB* 22 


.WORD 





UCBB* 24 


.WORD 





UCBB*26 


.WORD 





UCBB* 30 


.WORD 





UCBB* 32 


.WORD 





UCBB* 34 


.WORD 





UCBB* 36 


.WORD 





UCBB* 40 


.WORD 





UCBB*42 


.WORD 





UCBB*44 


.WORD 





UCBB* 46 


.WORD 


i 


UCBB* 50 


.W0R0 





UCB3»52 


.WORD 





UCfcti*54 


.WORD 





UCGB*56 


.WORD 





UCBB* 60 


.WORD 





UCBB*62 


.WORD 





UCBB* 64 


.WORD 


| 


UCBB* 66 


.WORD 





UCBB * 70 


.WORD 


j 


UCBB* 72 


.WORD 





UCBB* 74 


.WORD 


i 


UCBB * 76 



SEQ 4i 



I ♦ 
I 
l - 

.EVEN 



CLRCNTS •• BIT03!BIY01!BITOO i REAO AND CLEAR COUNTERS 



*CLRC{{ 



.WORD 13 
.WORD UCB13 



.WORD 

.WORD 




40 



FUNCTION 

UCBB ADDRESS 

DEFAULT COUNT OF COUNTER LIST 

NU.L 

(* OF WORDS IN LIST * UPPER BYTE) 
MAX NUMBER VALUE • 32 (DECIMAL) - 
40 (OCTAL) 



iC FOR UCB13{ 5 SEE UCB 12 ABOVE) 



I ♦ 
I 
I - 

*EVEN 



RDMODE ** BJTO3IBIT02 



IRDMOt i 



.WORD 

.WORD 



, WORD 
*WQRD 



14 




i READ INTERNAL LINK MODE REGISTER 



1 FLECTION COOE 

I A 16 BIT COPY OF THE 

I BITS TO READ THE UNA INTERNAL 

\ MQQE REGISTER 

I NULL 

\ NULL 



D4 
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SEQ 42 



2043 
2044 

2045 

2046 

2047 

2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2065 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2C75 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 



050300 
050302 



050304 
050306 



050310 
C 0312 
050314 



0f0320 
050322 
050324 



050330 
050332 
050334 
050336 

050340 
050340 



000015 
000000 



000000 
000000 



000016 
000000 
000000 



050316 000000 



00001/ 
OuOOCKI 

oooooo 



050326 000000 



00O02'", 
050340 
OOOO'i* 
000000 



000000 



I ♦ 

J 

I ' 

.EVEN 



WDMODE -- BIT03JBIT02!BITOO i WRITE INTERNAL LINK MODE REGISTER 



IWDMOm 



.WORD 


15 


I 


FUNCTION CODE 


.WORD 





1 


A 16 DXT CORY OF THE 






1 


BITS TO WRITE THE UNA 






1 


MODE REGISTER 


.WORD 





1 


NU.L 


.WORD 





» 


NULL 



J * 
I 
1 - 

.EVEN 



RDSTA ■■ BIT03JBIT02JBIT01 i READ PORT STATUS 



IRDST: j 

STATUS: j 



.WORD 
.WORD 
.WORD 



.WORD 



j ♦ 

i 
i - 

.EVEN 



CLRSTA 



• CLRSn 



16 , FUNCTION CODE 

i A LIST OF ERRORS AND STATUS 

i LOWER BYTE • ♦ OF HJLTICAST ADRS 
I MAXIMUM SUPPORTED BY UNA 

I UPPER BYTE ■ ♦ OF MULTICAST ADRS 
I CURRENTLY SUPPORTED BY UNA 

i WORD - MAXIMUM # OF WORDS IN 
t UCB FOR COUNTERS 

I AS CURRENTLY PERCEIVED 
I BY THE UNA 



-• BIT03!BIT02.*BIT01!BIT0 

I READ ANO CLEAR WRITE PORT STATUS 



FUNCTION COOE 

A LIST OF ERRORS ANO STATUS 

LOWER BYTE ■ # OF MULTICAST AORS 

MAXINJM SUPPORTED BY UNA 
UPPER BYTE - ♦ OF MULTICAST ADRS 

CURRENTLY SUPPORTED BY UNA 
WORD - MAXirKJM ♦ OF WORDS IN 

UCB FOR COUNTERS 

AS CURRENTLY PERCEIVED 

BY THE UNA 



.WORD 
.WORD 
.WORD 


17 

C 




I 
I 
i 
i 
i 


.WORD 





I 

i 

i 
I 



i ♦ 
I 
i - 

.EVEN 



DMPMEM •- BIT04 



♦DMEMis 



UCB20:; 
UCB21u 



.WORD 


20 


.WORD 


UCB20 


.WORD 





.WORD 






I DUMP INTERNAL MEMORY 



I FUNCTION COOE 
j UCBB ADDRESS 



.WORD 



j FUNCTION LENGTH (NO OF WORDS TO XFER> 



CZUAC60 DEUNA NI EXERCISER DIAG MACRO M1200 
GLOBAL DATA SECTION 



E4 



2100 


050342 


000000 


2101 


050344 


000000 


2102 


050346 


OOOOOO 


2103 






2104 






2105 






2106 






2107 






2108 






2109 


050350 


000021 


2110 


050352 


05034C 


2111 


050354 


OOOOfK) 


2112 


050356 


OOOOOO 


2113 






2114 






2115 






2116 






2117 






2118 






2119 


050360 


000022 


2120 


050362 


050400 


2121 


050364 


OOOOOO 


2122 


050366 


000073 


2123 






2124 






2125 






2126 






2127 






2128 


050370 


000023 


2.29 


050372 


050400 


2130 


050374 


OOOOOO 


2131 


0503 /6 


000033 


2132 






2133 


050400 




2134 


050400 


OOOOOO 


2135 


050402 


OOOOOO 


2136 


050404 


OOOOOO 


??37 


050406 


OOOOOO 


2138 


050410 


OOOOOO 


2139 


050412 


OOOOOO 


2140 


050414 


OOOOOO 


2141 


050416 


OOOOOO 


21*2 


050420 


OOOOOO 


2143 


050422 


OOOOOO 


2144 


050424 


OOOOOO 


2145 


050426 


OOOOOO 


2146 


050430 


OOOOOO 


2147 


0504 32 


OCOOOO 


2148 


050434 


ooooc 


2149 


050436 


OOOOOO 


2150 


050440 


OOOOOO 


2151 


050442 


OOOOOO 


2152 


050444 


OOOOOO 


2153 


05C446 


OOOOOO 


2154 


050450 


OOOOOO 


2155 


050452 


OOOOOO 


2156 


050454 


OOOOOO 
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. WORD 
. WORD 
. WORD 



1 ♦ 
I 
1 - 

♦ EVEN 



LDMEM 



tLMEM{ { 



BIT04IBIT00 



WORD 21 

WORD UCB21 

WORD 

WORD 



\ ♦ 

i 
i - 

.EVEN 



i ♦ 
\ 

.EVEN 



RDSYS <■• BIT04»BIT01 



*RDSY{ } 



.WORD 


22 


.WORD 


UCB22 


.WORD 





.WORD 


27. 



WTSYS -• BIT04!BIf01!BIT00 



*WTSY:j 



UCBf2: 
UCB23; 



.WORD 
.WORD 
.WORD 
.WORD 



23 

UCB23 

27, 



.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.UjRQ 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





, WORD 





.WORD 





.WORD 






5EQ 43 



I HDBB - HOST MEMORY DATA BLOCK ADDRESS 

I MUST BE ZERO 

I IDBB - INTERNAL DATA BLOCK BASE ADDRESS 



l LOAD UNA INTERNAL MEMORY 



I FUNCTION CODE 
i UCBB ADDRESS 



I READ SYSTEM ID 

l FUNCTION CODE 
l UCBB ADDRESS 

I LENGTH Of ID MESSAGE 

I WRITE SYSTEM ID 



I FUNCTION CODE 
I UCBB ADDRESS 

i LENGTH OF ID MESSAGE 



|UDBB*0 

iLOBB»2 

iU0BB*4 

iU0B6*6 

»U)BB»10 

|U0BB*12 

iUD6B*14 

|U0BB»16 

iU0BB*20 

lUOBB *22 

lU0BB*24 

<UDBB*26 

iUD88t30 

»UU8B*32 

iUDBB*34 

iU0BB*36 

iU0BB»40 

iUDBB*42 

|U)BB»44 

|U0B0»46 
iU)BB*50 
|U)BB»52 
aUOBQ'54 



CZUACBO DEUNA NI EXERCISER DIAG MACRO M12O0 
GLOBAL DATA SECTION 



F4 
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SEQ 44 



2157 


050456 


000000 


2158 


0504C0 


000000 


2159 


050462 


OX>000 


2160 


050464 


000000 


2161 






216? 


050466 


000000 


?163 


0504 70 


000000 


2164 


050472 


oooooo 


2165 


050474 


000000 


2166 






2167 






2168 






2169 






2170 






2171 


05C4 76 


oooooo 


2172 


050500 


oooooo 


2173 


oro.sc* 


oooooo 


2174 


050504 


oooooo 


2175 


050506 


oooooo 


2176 


050510 


oooooo 


2177 






2178 






21/9 






2180 






2i81 






2182 


050512 


oooooo 


2183 


050514 


oooooo 


2184 


050516 


oooooo 


2185 


050520 


oooooo 


2186 


050522 


oooooo 


2187 


050524 


0OOC*X> 


2188 


050526 


oooooo 


2189 


050530 


oooooo 


2190 


050532 


oooooo 


2192 


050534 


00000*1 


219? 


050536 


OOOOOO 


2193 


050540 


oooooo 


2194 


050542 


oooooo 


2195 


05054* 


000220 


2196 


050546 


0OU40 


2197 


050550 


oooo r>.> 


2198 


05055? 


OCOOOO 


2199 


050554 


oooooo 


2200 


050556 


00)000 


2201 


050560 


OOOOOO 


2202 


050562 


OOOOOO 


2203 


050564 


OOOOOO 


2204 


050566 


oooooo 


2205 


050570 


oooooo 


2206 


050572 




2207 






2208 






2209 






2210 






2211 






2212 


050712 




2213 


050712 


00000 -j 



UOBBj : 



.WORD 
.WORO 
.WORD 
.WORD 










»U0BB»56 
jU0BB*6C 
|U0BB*62 
|U0BB*64 



.WORD 
.UORD 
.WORD 
.WORD 










tUNIBUS DATA BLOCK BASE 

1*2 

1*4 

1*6 



1 

J 
i 


SUMMARY 


DATA C 


S.REC 


•: .WORD 





S.NREC: j. WORD 





S.LEN 


: .WORD 





S.C0MP:;,W9RD 





S. BYTE::. WORO 





S.XFER !5 ,WORD 





i 
i 
i 


DEUNA DRIVER A 


FATFLC 


5::. WORD 





PCEFLC 


i::.W0RD 





N1RCN1 


hi. WORD 





XFLAG 


: .WORD 





DNIFLC 


5::. WORD 





RBFCN1 


r: s.WORD 





BC0UN1 


hi.woRO 





ERRFLC 


i::.WORD 





TIM0U1 


r: : .WORD 





RETRY! 


>::.W0RD 





RCVERF 


* : : . WORD 





RCVBl* 


: i .WORD 





COUNT 


: .WORD 





PROTO< 


)::.WORD 


000220 


PROTO* 


?: r.WO^O 


00U40 


TEMPt 


.WORD 





TEMPI 


: .WORD 





TEMP2 


: .WORD 





TEMPS 


: .WORD 





XFER; 


.WOPO 





CPYCN1 


r: : .WORD 





PCCALl 


. ::,WORD 





BUTLEf 


4\ :.WORD 





CMPBUf 


* : : . WORD 





PATCH, 


s .BLKW 


40. 



MESSAGtS RECEIVED 

MESSAGES NOT RECEIVED 
LENGTH ERRORS 
COMPARE 6RR0RS 
BYTES COMPARED 
BYTES TRANSFERED 



FATAL ERROR FLAG 

PORT COMMAND ERROR FLAG 

t*NA RECIEVE MESSAGE COUNTER 

FRAME TRANSMITTED FLAG 

DONE INTERRUPT FLAG 

RECIEVE BUTTERS LOST COUNTER 

UNEXPLAINED INTERRUPTS COUNTER 

ERROR FLAG 

TIME CUT COUNTER 

COLTER FOR FRAMES FAILING DUE TO RTRY ERROR 

COUNTS NO. OF BUFFERS RECEIVED WITH ERRORS 

COUNTS NO. OF GOOO BUFFERS RECEIVED 

USED IN Bl.DBUF SUBROUTINE AS COUNTER 

PROTOCALL TYPE FOR L00P8ACK MESSAGES 

PROTOCALL TYPE FOR REMOTE CONSOLE 

USED IN XMIT AS TEMPORARY STORAGE 

USED FOR TEMPORARY STORAGE 

USED FOR TEMPORARY STORAGE 

USED FOR TEMPORARY STORAGE 

STORES 'BYTES TRANSFERED* 

NO. OF COPIES' COUNTER FOR LOOPINo 
STORES PC OF CALLING ROUTINE FOR ERROR REPORTS 
STORES TRANSMIT BUFFER LENGTH 

STOPES LOCATION OF DATA BUFFER TO BE COMPARED 
40 WORDS FOR PROGRAM PATCH 



j REQUEST ID MESSAGE FORMAT 



REQID: j 



.WORD 



I BYTE COUNT 1-3 FOR REQUEST ID) 



CZUACBO DEUNA NT. EXERCISER OIAG MACRO M1200 
GLOBAL DATA SECTION 
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2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2?.?.l 
2224 
2225 
2226 
2227 
2228 
2229 
223U 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 



050714 
050716 



050720 
050720 
050722 
050724 
050732 
050734 



050742 
050742 
050744 
050746 
050754 
050756 
050764 
050766 



050774 
050774 
050776 
0510O0 
051006 
051010 
051016 
051020 



051026 
051C26 
051030 
051032 
051040 
051042 
051050 
051052 
051060 
051062 



0511? 5 



000000 
000002 
0^0000 
000001 
000000 



ooooo 

000002 
000000 
000002 
000000 
000001 
000000 



000000 
000002 
000000 
000002 
000000 
000001 
000000 



ocoooo 

000002 
000000 
000002 
000000 

OOOOO. 5 
000000 
000001 

ooocoo 



000000 
000000 



000000 
000000 



OOCvOO 
OOO'K'O 
000000 



OCOi.OO 

ocoooo 
oocooo 



OOOOOO 

ocoooo 
oooooo 

000000 



oooooo 
oooooo 
oooooo 



oooooo 
oooooo 
oooooo 



oooooo 
oooooo 
oooooo 
oooooo 



.WORD 
,WORD 



5 
"MR 



i LOOP DIRECT MESSAGE 
I 

.EVEN 
L0PDIR; 



.WORD 
.WORD 
.WORD 
.WORD 
♦ WORD 




2 

0,0,0 

1 

0,0,0 



I TRANSMIT ASSIST MESSAGE 



TASIST: j 



.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 





2 

0,0,0 

2 

0,0,0 

1 

0,0,0 



» RECIEVE ASSIST MESSAGE 



RASIST; 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 





2 

0,0,0 

2 

0,0.0 

1 

0,0,0 



j FULL ASSIST MESSAGE 



FASISTji 



.WORD 
.WORD 
.WORD 
• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 





2 

0,0.0 

2 

0,0,0 

2 

0,0,0 

1 

0,0,0 



SEU 45 



j FUNCTION CODE FOR REQUEST ID 
I RECIEPT NUMBER 



SKIP COUNT 

FUNCTION ■ FORWARD DATA 
LOCAL NOOE ADDRESS 
FUNCTION - REPLY 
LOCAL NODE ADDRESS 



SKIP COUNT 

FUNCTION - FORWARD DATA 
TRANSMIT ASSIST ADDRESS 
FUNCTION - FORWARD DATA 
LOCAL NOOE ADDRESS 
FUNCTION » REPLY 
LOCAL NODE ADDRESS 



SKIP COUNT 

F'JNCTION • FORWARD DATA 
TRANSMIT ASSIST ADDRESS 
FUNCTION - FORWARD DATA 
LOCAL NOOE ADDRESS 
FUNCTION • REPLY 
LOCAL NODE ADDRESS 



I SKIP COUNT 






l FUNCTION •• 


FORWARD 


DATA 


\ TARGET NOOE ADDRESS 




1 FUNCTION - 


FORWARD 


DATA 


i ASSIST NOOE ADDRESS 




l FLECTION - 


FORWARD 


DATA 


j LOCAL NOOE 


ADDRESS 




l FUNCTION - 


REPLY 




i LOCAL NOOE 


ADDRESS 





ti 



l°d8WsecJi&n ERC1S£R DlAtj MACR0 m200 
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SEQ 46 



?271 
2272 

2275 
2274 
2275 
2276 
2J77 
2278 
22?9 
22o0 
2281 
2262 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2501 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
231? 
231? 
231j 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 

2323 
2324 
2325 
2326 
2327 



051070 



051070 
051074 
051100 
051102 
051116 
051120 
051134 
051140 
051154 
051156 
051170 
051174 
051200 
051212 
051216 
051234 
051236 
051250 
051252 
051254 
051256 
051272 
051276 
051316 
051322 
051340 
051344 
051362 
051366 
051402 
051404 
051424 
051430 
051432 



051434 



,SBTTL COMMAND LINE ACTION TREE 

j SAMPLE CLI TREE NODE (ALWAYS AT LEAST 1 WORD) 



} ! ACTION J CMAF, CODE ! 

j • MISS DISPLACEMENT J 

j J NEXT MODE DISPLMNT ! 

» 

i • ASCIZ MATCH STRING ! 

I 8 (.EVEN) • 

} 



ONLY IF "MISS" ARGUMENT DEFINED 
ONLY IF "ASCII" ARGl*1ENT DEFINED 
ONLY IF "ASCII" ARGUMENT DEFINED 



CLITRE: 

j FIRST KEYWORD 
CLI 



N10* 
N12* 
N14* 
N16* 
N18$ 
N20* 

N22* 
N23* 
N24$ 
N25$ 
N26t 
N28* 
N29I 

N50I 

N31i 
N32* 



CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CM 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 



CLISPA.0.N10* 

< J ?>,HELP,N12i 

CLIEXI.O 

CLISTR,HELP,N14$,<'HELP' > 

CLIEXI.O 

CLISTR,N0TNUF,N16*,<*N0DE' > 

CLIBR.O.NeO* 

CLISTR. BUILD, N18*,<'BUIL0' > 

CLIEXI.O 

CLISTR.N0TNUF,N20*,<'RUN' > 

CLIBR.0.N180* 

<'S>,N0TNUF,N25I 

CLISTR.0,N22$,<'HQW' > 

CLIBR.0.N100* 

CLISTR.SU1MRY.N23t, NUMMARY' ? 

CLIEXI.O 

CLISTR.CSAVE.N24f,*' AVE' > 

CLIEXI.O 

CLIERR.O 

CLIEXI.O 

CLISTR > N0TNUF,N26*,<' CLEAR' > 

CLXBR.0,N120$ 

CLISTR.N0TNir,N28*,<' IDENTIFY* > 

CLIBR.C.N140I 

CLISTR.NOTNUF ,N29$ , < • MESSAGE' > 

CLIBR.0.N160I 

CLISTR,CUNSAV,N30t , < ' UNSAVE* > 

CLIBR,0,N210I 

CLISTR,EXIT,N31$,<'EXIT' > 

CLIEXI.O 

CLISTR.NOTNUF ,N32* , < « FUNCTION 4 > 

CLIBR.0.N200* 

CLIERR.O 

CLIEXI.O 



{SECOND KEYWORD (ADR/TYPE) FOR NODE COMMAND 
N80$ { CLI CLISPA.0.N8H 



SKIP AN< LEADING SPACES 

IS THE URST NON-SP CHAR. A "?>' 

IF YES DO "HLP" AND EXIT 
ELSE IS FIRST WORD A "HELP" 

IF YES DO "HLP" AND EXIT 
ELSE IS FIRST WORO A "NOOE" 

IF YES. BR N80I 
ELSE IS FIRST WORD A "BUILD" 

IF YES DO "BUILD" AND EXIT 
ELSE IS FIRST WORD A "RUN" 

IF YES. BR N180I 
ELSE IS FIRST CHAR. A "S" 

IF YES IS REST OF WORD "HOW" 
IF YES. BR N100* 

ELSE IS REST OF WORD "UMhARY" 
IF YES. DO "SUMM" ANO EXJT 

ELSE IS REST Of WORD "AVE" 
IF YES. DO "SAVE" ANO EXIT 

ELSE "ILL COMMAND" 

EXIT 
ELSE IS FIRST WORD A "CLEAR" 

IF YES. BR N120i 
ELSE IS FIRST WORD "IDENTIFY" 

IF YES, GET ADDRS, BR N140$ 
ELSE IS FIRST WORD "MESSAGE" 

IF YES. BR N160» 
ELSE IS FIRST WORD "UNSAVE" 

IF YES, BR TO N210* 
ELSE IS FIRST WORD "EXIT" 

IF YES EXIT 
ELSE IS FIRST WORD "FUNCTION" 

IF YES. BR N200* 
OTHERWISE "ILL CMO", 

EXIT 



l SKIP ANY LEADING SPACES 



14 
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2326 
2329 
2330 
2331 
23S2 
2333 
2334 
2335 
2336 
2337 
2336 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2346 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
23 70 
2371 
2372 
2373 
2374 
237j 
23/6 
23 7/ 
2378 
2379 
23J0 
2351 
2382 
2383 
2304 



051440 
051444 

051450 
051454 



051456 

051462 
051476 
051502 
051520 
051524 
051544 
051550 
051554 



051556 
051562 
051576 
051602 
051606 
051612 
051624 
051630 
051634 
051640 
051644 
051650 
051654 
051672 
051676 
051714 
051720 
051722 



051". 24 

051730 
051734 

051740 
051744 



051 Mo 
051752 
051756 
051772 
051776 
052012 
052016 
052032 



N81*: CLI CLIBR.CSAVR4.N82* 

N62I: CLI CLIBR,N0UE,N90$ 

N90$: CLI CLIB3* l O,N32$ 

N95$: CLI CLIEXI.O 



SECOND KEYWORD FOR SHOW COMMAND 



N100I: CLI CLISPA.O.NIOII 

NIOllj CLI CLISTR,CN00E,N102*,<'N0DES' > 

CLI CLIBR.O.NIIOI 

N102$: CLI CLISTR,CSmSG,N104$,<' MESSAGE' > 

CLI CLIBR.0.N110* 

N104 % i CLI CL ISTR , CCNTR , N106I , < ' COUNTERS ' > 

CLI CLIBR,0,N110* 

N106*; CLI CLIBR.0,N32I 

N110*: CLI CLIEXI.O 

i SECOND KEYWORD FOR CLEAR COMMAND 



N120I 
N121* 

N122$ 



N123I 



N124$ 
N126t 
N130I 

N132I 

N134I 
N135$ 



CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 
CLI 



Ct.ISPA.O.Nl.211 
CLISTR,0,N130$,*'N0DE' > 
CLISPA.0,N122I 
< , />,CSPVR4,N32* 
<'A>,C,N123* 

CLISTR,CNOOAL ,N124 $ , < ' LL' > 
CLIBR,0,N135$ 
<*N>,0,N124$ 



CLIDK 
CLI? 

CL.T J? 

CL ■ 

CL: •;.! 



'32* 

X.N135I 
. 0P.N126* 

OK,N135t 
-LMSG,N132t,< 
CLIbry,0.Nl35$ 

CLISTR,CCLSUM»N134I,<' SUMMARY' > 
CLI6R,0,N135* 
ILIERR,0 
CLTEXI.O 



MESSAGE 1 > 



jADORESS FOR IDENTIFY COtlMANO 

N140I: CLI CLISPA.0.N141I 

N141I; CLI CLISR.CSAVR4.N142I 

N142I: CLI CLIALN.O.NJ^i 

CLI CLieR.CEXADR.M43f 

N14.M: CLI CLIEXI.IDENT 

j REMAINING COMMANO LINE FOR MESSAGE COMMAND 



N160* 
N16U 



N162J 



CLI CLISPA.0.N161I 

CLI <*/>,0,N178* 

CLI CLISTR,0,N170f ,<' TYPE' > 

CLI < , ->.0.N32t 

CLI CLISTR,CALPHA,N162*,<' ALPHA' > 

CLI CLIBR,0,N166* 

CLI CLISTR. CONES. N163$ , < ' 0NE5' > 

CLI CLIBR.0.N166S 



SEQ 47 

j SAVE STRING POINTER LOCATION 

i PARSE THROUGH ADDRESS, CHECK 

jFOR TARGET OR ASSIST, 00 NODE 

» TAKE ERROR BRANCH IF ERROR EXISTS 

jEXIT 



;SKIP LEADING SPACES 

iIS NEXT WORD "NOOES" 

I IF YES, SET FLAG, BR N110* 

j ELSE IS NEXT WORD "MESSAGE" 

I IF YES ,SET FLAG. BR N110* 

j ELSE IS NEXT WORD "COUNTERS" 

i GO VO COUNTERS ROUTINE 



lELSE 
jEXIT 



"ILL COMMAND" 



SKIP LEADING SPACES 
IS NEXT WORD "NOOE" 
IF YES SKIP SPACES 

LOOK FOR DELIMETER, ELSE "ILL COM" 
IS NEXT CHAR, AN "A" 
IF YES, IS WORD "ALL" 

IF YES. SET FLAG, BR N135* 
ELSE IS NEXT CHAR. AN "N" 

IF YES, STORE NOOE LOGICAL NAME 
BR TO CLR. NOOE LOGICAL ROUTINE 
ELSE, EXTRACT ADDRESS 
SET FLAG. BR N135I 
ELSE IS NEXT WORD "MESSAGE" 

IF YES, SET FLAG, BR N135* 
ELSE IS NEXT WORD "SUMMARY" 

IF YES, CLEAR TABLE ANO EXIT 
ELSE, "ILL COMMANO", 
EXIT 



SPACES 



I SKIP LEADING 

I SAVE POINTER TO FIRST CHAR. OF ADDRESS 

j CHECK THAT ADDRESS HAS LEGAL C'HAR.S 

j GET ADDRESS 

iDO "IDENTIFY", EXIT 



SKIP LEADING SPACES 
IF CHAR. •'/•*, CONT. 
IS NEXT WORD "TYPE" 

IF YES, FOLLOWED 8* "• 
IF "ALPHA". SET FLAG 
CONTINUE AT N168I 
IF "ONES", SET FLAG 
CONTINUE AT N1685 



ELSE BR N1785 



C7UACB0 


DtUNA 


COMMAND 


LINE A 


2385 


052036 


3386 


052052 


2387 


052056 


2368 


052072 


2389 


052076 


2390 


052112 


2391 


052116 


2392 


052132 


2393 


052136 


2394 


052142 


2395 


052146 


2396 


052152 


2397 


052166 


2398 


052172 


2399 


052\76 


2400 


052202 


2401 


052220 


2402 


052224 


2403 


052230 


2404 


052234 


2405 




2406 




2407 




2400 


052240 


2409 


052244 


2410 


052204 


2411 


052270 


2412 


052302 


2413 


052306 


2414 


052324 


2415 


052330 


2416 


052346 


2417 


052352 


2418 


05<>366 


2419 


052372 


2420 


052376 


2421 




2422 




2423 




2424 


052400 


2425 


052404 


2426 


052410 


2427 




2428 




2429 




2430 


052412 


2431 


052416 


2432 


052422 


2433 


052424 


2434 




2436 




2437 




2438 




2439 




2440 




244 1 




2442 





NI EXt&UsKR 
ACTION RU; 
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N163$: CLI CLISTR. CZEROS ,N164$ , < ■ ZEROS' > 

CLI CLIBR, 0.N16B* 

N164*: CLI CLISTR, C1ALT ,N165$ , < ■ 1ALT' > 

CLI CLIBR, 0,N168* 

N165*: CLI CLISlR.C0ALT,N166i,<'0ALT' > 

CLI CLIBR, 0,N168t 

N166*: CLI CLISTR. CCCITT ,N167$ , <' CCITT» > 

CLI CLIBR, 0,N168i 

N\67l: CLI <"»> .CSAVR4,N32$ 

CLI CLIBR , COPRSL , N168 1 

NK)8ij CLI CLIBR. CTYPE.N160* 

M7C$j CLI CLISTR. 0,N175$,<'SIZE» > 

CLI <'->,0,N32l 

CLI CLIDEC.CSIZE.N32I 

CLI CLIBR, O.N160I 

N175J; CLI CLISTR .0.N32* ,<• COPIES' > 

CLI <*->,0.N32* 

CLI CLIDEC.CCPYS.N32* 

CLI CLI0R.O.N160* 

N178*: CLI CLIBR, 0.N32I 

iSECOhO KEYWORD FOR RUN COMMAND 

NJ80I: CLI CLISPA.0.N18H 

N16U: CLI CLISTR, CLt*>PR ,N182* ,<• LOOPPAIR' 

L'LI CLIBR, 0,N185t 

N132I: CLI CLISTR. CRNALL ,N183$ ,<• ALl ' > 

CLI CLIBR, 0.N185I 

N183I: CLI CLISTR. COIR, N184I ,<• DIRECT' > 

CLI CLIBR, 0.N1B5I 

N184 $ : CLi CL ISTR . CPA TRN , N32 1 , < ' PAT TERN* > 

N185I: CLI CLIBR. CDEFLT.N18M 

N186I: CLI CLISTR. 0, N32$ , <* /PASS' > 

CLI <'->.0.N32$ 

CLI CLI0EC.0.N32I 

N190*t CLI CLIEXI.CRUN 

i REMAINING COMMANO LINE FOR FUNCTION COMMAND 



N200I: C.-I 

N201*; CLI 

CLI 



CLiSPA,0,N201$ 

CLI0CT.CFUNCT.N32* 

CLIEXI.O 



j REMAINING COMMAND LINE FOR UNSAVE COMMAND 

N210I: CLI CLISPA.0.N212I 

N212$t CLI <'/>.0.N215l 

CLT CIIEXI.CUNSVF 

N215I; CLI CLIEXI.O 



SEQ 48 



IF "ZEROS", SET FLAG 
CONTINUE AT N168* 
IF "1ALT", SET FLAG 
CONTINUE AT N168I 
IF "OALT", SET FLAG 
CONTINUE AT N168* 
IF "CCITT", SET FLAG 
CONTINUE AT N168* 
IF "OPERATOR". SET FLAG 
AND INPUT SPECIFIED STRING 
DO "TYPE", CHECK FOR MOf.E INPUT 
ELSE IS WORD "SIZE" 

IF YES, FOLLOWED BY "«"? 
STORE NUMBER IN MISIZE 
CHECK FOR MORE INFO 
ELSE IS WORD "COPIES" 

IF YES. FOLLOWED 3Y "•"? 
STORE NUMBER IN M$CPYS 
CHECK FOR KORc INFO 
ELSE "ILL COMMAND" 



j SKIP LEADING SPACES 
> ilS NEXT WORD "LOOPPAIR" 
j IF YES, SET "LOOPPAIR" FLAG 
jELSE IS NEXT WORD "ALL" 
I IF YES, SET "ALL" FLAG 
jELSE IS NEXT WORD "DIRECT" 
i If YES. SET "DIRECT" FLAG 
lELSE IS NEXT WORD "PATTERN" 
I SEE IF DEFAULT OF 1 PASS 
iPARSE THROUGH SWITCH 
j PARSE THROUGH "«•' 
I GET PASS COUNT 
jRUN TEST AND EXIT 



j SKIP 5PACCS 

i GET OCTAL NUMBER AND DO FUNCT 

j EXIT 



jSKIP SPACES 

j PARSE THROUGH ' /' 

;SAV£ POINTER TO FILE NAME 



I THE ERRTBL MACRO IS REQUIRED IF YOU INTENO TO REPORT ERRORS USING 

; THE "ERROR" MACRO. THE ERRTBL MACRO F.XPANOS INTO FOUR WORDS THAT 

I ARE USED BY THE RUNTIME SERVICES DURING AN ERROR CALL: ERROR TYPE, 

I ERROR NUMBER, ADDRESS OF ERROR MESSAGE ANO ADDRESS OF MESSAGE 

5 BLOCK, THERE MUST BE ONLY ONE ERRTBL IN ANY PROGRAM. THIS SECTION 

j IS OPTIONAL. REMOVE IF IT IF YOU ARE NOT GOING TO USE THE ERROR 



!<4 
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SEQ 49 



2443 

2444 

2445 

2447 

2448 052426 
052426 

052426 000000 
052430 OOOOOC 
052432 000000 
052434 000000 



i MACRO. CHANGE THE POINTER MACRO TC REFLECT THIS SECTION'S DEL - 

j ETION IF YOU REMOVE IT. 



ERRTBL 



ERRTYP; 


. WORD 





ERRN6R: 


: .WORD 





ERRM5G? 


: . WORD 





ERRBLK; 


j .WORD 






L*ERRTBL 
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SEQ 50 



2450 










2451 










2452 










2453 










2454 










2455 










2456 










2457 


052436 


012 


015 


116 




052441 


111 


105 


076 




052444 


000 






2458 


052445 


045 


116 


045 




052450 


101 


077 


111 




052453 


114 


114 


040 




052456 


103 


115 


104 




052461 


055 


102 


101 




053464 


104 


040 


123 




052467 


13i 


116 


124 




052472 


101 


130 


077 




052475 


000 






2459 


0524 76 


045 


116 


045 




052501 


101 


077 


111 




052504 


116 


103 


117 




052507 


115 


120 


114 




052512 


105 


124 


105 




052515 


040 


103 


117 




052520 


115 


115 


101 




052523 


116 


104 


077 




052526 


000 






2460 


052527 


045 


116 


045 




052532 


101 


077 


116 




052535 


125 


115 


102 




052540 


105 


122 


040 




052543 


124 


117 


117 




052546 


040 


102 


111 




052551 


107 


077 


000 


2461 


052554 


045 


116 


045 




052557 


101 


077 


102 




052562 


101 


104 


040 




052565 


122 


101 


104 




052570 


111 


130 


077 




052573 


000 






2462 


052574 


045 


116 


045 




05257 7 


101 


116 


117 




052602 


104 


105 


040 




052605 


045 


124 


045 




052610 


101 


040 


110 




052613 


101 


123 


040 




052616 


122 


105 


123 




052621 


120 


117 


116 




052624 


104 


105 


104 




052627 


056 


000 




2463 


C52631 


045 


116 


045 




052634 


101 


120 


101 




052637 


103 


113 


105 




052642 


124 


040 


122 




052645 


105 


103 


105 




052650 


111 


126 


105 



, SBTTL GLOBAL TEXT SECTION 



f + 



j THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
j MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
j MORE THAN ONE TEST, 



CLISPMt .ASCIZ <12><15>/NIE>/ 



CLIERM; .ASCIZ /*N*A?ILL CMD-BAD SYNTAX?/ 



}NIE PROMPT 



CLINUF: .ASCIZ /*N*A? INCOMPLETE COMMAND?/ 



CLINBG: .ASCIZ /*N*A?NU"tBER TOO BIG?/ 



CLIBRX: .ASCIZ /*N*A?BAD RADIX?/ 



LDRESP} , ASCIZ /*N*ANQDE UTtiA HAS RESPONDED,/ 



RECLRR; , ASCIZ /*N*APACKET RECEIVED WITH UNA ERROR./ 



CZUACBO DEUNA NI EXERCISER DIAG MACRO M1200 
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SEQ 51 



2464 



2465 



2466 



052653 
052656 
052661 
052664 
052667 
052672 
052675 
052700 
052703 
052706 
052711 
052714 
052717 
052722 
052725 
052730 
052733 
052736 
052741 
052744 
052747 
052752 
052755 
052757 
052762 
052765 
052770 
052773 
052776 
053001 
053004 
053007 
053012 
053015 
053020 
053023 
053026 
053031 
053034 
053037 
053042 
053045 
053050 
053051 
053054 
053057 
053062 
053065 
053070 
053073 
053076 
053101 
053104 
053107 
053112 
053115 
053120 



104 

111 
040 
101 
122 
122 
045 
101 
101 
115 
123 
116 
102 
124 
040 
040 
103 
123 
105 
117 
111 
117 
056 
045 
104 
101 
117 
040 
104 
123 
123 
104 
104 
105 
120 
104 
111 
072 
104 
101 
111 
124 
OOC 
045 
101 
116 
124 
123 
102 
101 
101 
040 
104 
123 
050 
055 
055 



040 
124 
125 
040 
122 
056 
116 
124 
116 
111 
111 
040 
117 
105 
055 
105 
105 
111 
040 
114 
123 
116 
000 
116 
062 
040 
104 
101 
122 
123 
040 
104 
054 
114 
123 
040 
115 
040 
062 
040 
116 
105 

116 
103 
116 
040 
105 
122 
104 
123 
101 
122 
123 
106 
106 
106 



127 
110 
116 
105 
117 
000 
045 
122 
123 
123 
117 
101 
122 
104 
055 
130 
123 
126 
103 
114 
111 
123 

045 
045 
116 
105 
104 
105 
105 
101 
105 
040 
101 
105 
124 
105 
045 
045 
115 
125 
056 

045 
101 
117 
125 
040 
117 
103 
124 
104 
105 
040 
106 
106 
106 



RTRYER; .ASCIZ /rfNKATRANSMISSION ABORTED -- EXCESSIVE COLLISIONS./ 



BLDMSG: .ASCIZ /*NKD2*A NODE ADDRESSES ADDED, ELAPSED TIME: *D2*A MINUTE./ 



ILADMS: .ASCII /*N*ACANNQT USE BROADCAST ADDRESS (FF-FF FF-FF-FF-FF)/ 
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SEQ 52 



05312i 


055 


106 


106 


053126 


055 


106 


106 


053131 


055 


106 


106 


053134 


051 






2467 053135 


045 


116 


045 


053140 


101 


106 


117 


053143 


122 


040 


114 


053146 


117 


117 


120 


053151 


040 


124 


105 


053154 


123 


124 


111 


053157 


116 


107 


056 


053162 


040 


101 


104 


053165 


104 


122 


105 


053170 


123 


123 


040 


053173 


127 


101 


123 


053176 


040 


116 


117 


053201 


124 


040 


101 


053204 


104 


104 


105 


053207 


104 


040 


124 


053212 


117 


040 


116 


053215 


117 


104 


105 


053220 


040 


124 


101 


053223 


102 


114 


105 


053226 


056 


045 


116 


053231 


000 






2468 053232 


045 


116 


045 


053235 


101 


120 


114 


053240 


105 


io: 


123 


053243 


105 


040 


105 


053246 


116 


124 


105 


053251 


122 


040 


124 


053254 


127 


105 


114 


053257 


126 


105 


040 


053262 


110 


105 


130 


053265 


101 


104 


105 


053270 


103 


111 


115 


053273 


101 


114 


040 


053276 


104 


111 


107 


053301 


111 


124 


123 


05i304 


056 


000 




2469 0533^6 


045 


116 


045 


05331' 


101 


124 


127 


053314 


105 


114 


126 


053317 


105 


040 


110 


053322 


105 


130 


055 


053325 


104 


111 


107 


053330 


111 


124 


123 


053333 


040 


122 


105 


053336 


121 


125 


ill 


053341 


122 


105 


104 


053344 


040 


106 


117 


053347 


122 


040 


101 


053352 


104 


104 


122 


053355 


105 


123 


123 


053360 


056 


000 




2470 053362 


045 


116 


04 5 


053365 


101 


101 


040 



ILADM1; .ASCIZ /*N*AF0R LOOP TESTING. ADDRESS WAS NOT ADDED TO NODE TABLE. *N/ 



CADRER; .ASCIZ /*N*APLEASE ENTER TWELVE HEXADECIMAL DIGITS./ 



CADERR: .ASCIZ /tfNtfATWELVE HEX-DIGITS REQUIRED FOR ADDRESS./ 



NULSTR: .ASCIZ /*N*AA ZERO LENGTH STRING WAS ENTERED./ 



CZUACBO DEUNA NI EXERCISER DIAG MACRO M1200 
GLOBAL TEXT SECTION 



B5 
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SEQ 53 



RIVER 



RIVER 



053370 


132 


105 


122 


053373 


117 


040 


114 


053376 


105 


116 


107 


053401 


124 


110 


040 


053404 


123 


124 


122 


053407 


111 


116 


107 


053412 


040 


127 


101 


053415 


123 


040 


105 


053420 


116 


124 


105 


053423 


122 


105 


104 


053426 


056 


000 




2471 0534J0 


045 


116 


045 


053433 


323 


06? 


045 


053436 


124 


000 




2472 053440 


045 


123 


061 


053443 


064 


045 


101 


053446 


116 


045 


104 


053451 


062 


000 




2473 053453 


045 


123 


061 


053456 


064 


045 


124 


053461 


000 






2474 053462 


045 


116 


045 


053465 


101 


116 


117 


053470 


104 


105 


040 


053473 


120 


110 


131 


053476 


123 


ill 


103 


053501 


101 


114 


040 


053504 


101 


104 


104 


053507 


122 


105 


123 


053512 


123 


040 


040 


053515 


C40 


040 


040 


053520 


116 


117 


104 


053523 


105 


040 


114 


053526 


117 


107 


111 


053531 


103 


101 


114 


053534 


040 


116 


101 


053537 


115 


105 


040 


053542 


040 


040 


040 


053545 


040 


124 


i:.i 


053550 


120 


105 


050 


053553 


101 


057 


124 


053556 


051 


000 




2475 053560 


045 


116 


045 


C53563 


101 


124 


110 


053566 


105 


040 


045 


053571 


124 


045 


101 


053574 


040 


124 


101 


053577 


102 


114 


105 


053602 


040 


111 


123 


053605 


040 


106 


111 


053610 


114 


114 


105 


053613 


104 


040 


124 


053616 


117 


040 


103 


053621 


101 


120 


101 


053624 


103 


111 


124 


0536^7 


151 


041 


000 


2A76 053632 


045 


116 


045 



NOOADRt .ASCIZ /\<N*S2*T/ 



LOGNAM; ,ASCIZ /*<U4*AN#D2/ 



NOOTYPj .ASCIZ /tfSMtfT/ 



NTBHOR: ,ASCIZ \*N«A>K)0E PHYSICAL ADDRESS 



NODE LOGICAL NAME 



TYPE(A/T)\ 



TABFIA,! ,ASCIZ /*N*ATHE #Y*A 7ABLE IS BILLED TO CAPACITY}/ 



TABEMTj >A5CXZ /*N*ATHE #T#A TABLE IS CURRENTLY EMPTY*/ 



CZUAC80 DEUNA NI EXERCISER DIAG MACRO M1200 
GLOBAL TEXT SECTION 



C5 



22-MAR-84 10:53 PAGE 9-4 



SEQ 54 



053635 


101 


124 


110 


053640 


105 


040 


045 


053643 


124 


045 


101 


053646 


040 


124 


101 


053651 


102 


114 


105 


053654 


040 


111 


123 


053657 


040 


103 


125 


053662 


122 


122 


105 


053665 


116 


124 


114 


053670 


131 


040 


105 


053673 


115 


120 


124 


053676 


131 


041 


000 


2477 053701 


116 


117 


104 NOO: 


053704 


105 


000 




2478 053706 


123 


1?5 


115 SUMM{ 


053711 


115 


101 


122 


053714 


131 


000 




2479 053716 


045 


11* 


045 CLRMS 


053721 


101 


124 


110 


053724 


105 


040 


115 


053727 


105 


1«* 


123 


053732 


101 


107 


105 


053735 


040 


120 


101 


053740 


122 


101 


115 


053743 


105 


124 


105 


053746 


122 


123 


040 


053751 


110 


101 


126 


053754 


105 


040 


102 


053757 


105 


105 


116 


053762 


040 


122 


105 


053765 


123 


105 


124 


053770 


040 


124 


117 


053773 


072 


000 




2480 053775 


045 


116 


045 CPYLM 


054000 


101 


124 


110 


054003 


105 


040 


116 


054006 


125 


115 


102 


054011 


105 


122 


040 


054014 


117 


106 


040 


054017 


103 


.17 


120 


054022 


111 


105 


123 


054025 


040 


115 


125 


054030 


123 


124 


040 


054033 


102 


105 


040 


054036 


102 


105 


124 


054041 


127 


105 


105 


054044 


116 


040 


061 


054047 


040 


101 


116 


054052 


104 


040 


062 


054055 


065 


65 


056 


054060 


000 






2491 054061 


045 


116 


045 SIZU1 


054064 


101 


124 


110 


054067 


105 


040 


115 


054072 


105 


123 


123 


054075 


101 


107 


105 


054 IQQ 


040 


125 


111 



.ASCIZ /NODE/ 
.ASCIZ /SUMMARY/ 

CLRMSGi .ASCIZ /*N*ATHE MESSAGE PARAMETERS HAVE BEEN RESET TOj^ 



CPYLMT: .ASCIZ /#N*ATHE NUMBER OF COPIES MUST BE BETWEEN 1 ANO 255./ 



SIZUITi *ASCX£ /UtalATNE MESSAGE SIZE. [DATA] MUST B£ BETWEEN 32 ANO 146fe BtTES* 



D5 
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8i3i8i m ta a? 

054111 
0541U 

054117 

054122 

054125 

054150 

054133 

054136 

054141 

054144 

05414? 

054152 

05415S 
2462 054160 

054163 

054166 

054t7l 

054!74 

054177 

054202 

054205 

054210 

054213 

054216 

054221 

054224 

054227 

054232 

054235 

054240 

054243 

054246 

054251 
2483 054252 

054255 

054260 

054263 

054266 

054271 

054274 

054277 

054302 

054305 

054310 

054313 

054316 

054321 

054324 

054 327 

054332 

054335 
2464 054340 

054343 

054346 

054351 



SEQ 55 



124 


101 


135 


040 


115 


125 


123 


124 


040 


102 


105 


040 


102 


105 


124 


127 


105 


105 


1.16 


040 


063 


062 


040 


101 


116 


104 


040 


061 


064 


060 


066 


040 


102 


131 


124 


105 


1*3 


056 


000 


045 


U6 


045 


101 


124 


110 


105 


040 


101 


104 


104 


122 


105 


123 


123 


040 


115 


101 


122 


113 


105 


104 


040 


106 


117 


122 


040 


104 


105 


114 


105 


124 


111 


117 


116 


040 


127 


101 


123 


040 


116 


117 


124 


040 


111 


116 


040 


124 


110 


105 


040 


124 


101 


102 


114 


105 


056 


OOO 






045 


116 


045 


101 


101 


116 


040 


125 


116 


102 


117 


125 


116 


104 


3 05 


104 


040 


042 


117 


120 


105 


122 


101 


124 


117 


122 


C*40 


111 


116 


120 


125 


124 


042 


040 


123 


124 


122 


111 


116 


107 


040 


127 


101 


123 


040 


105 


116 


124 


105 


122 


105 


104 


056 


000 


045 


136 


045 


.01 


124 


110 


105 


040 


101 


104 


104 


122 



NOCMPRi .ASCIZ /*N*ATH€ ADDRESS MARKED TOR DELETION WAS NOT IN THE TABLE./ 



UN60N0: .ASCIZ /tiNrfAAN UNBOUNDED "OPERATOR INPUT" STRING WAS ENTERED,/ 



ADRDELj , ASCIZ /rfNtfATHE ADDRESS HAS BEEN DELETED FROM THE NODE TABLE,/ 



E5 

8LyBAL°TRxy N St£C^lSN ERC * XSER ° IAG MACR ° M12 °° 22 " MAR - 84 10;53 PAGE 9 " 6 



SEQ 56 



05*354 105 12S 

054357 040 110 

054362 123 040 

054365 105 105 

054370 040 104 

054373 114 105 

054376 105 104 

054401 106 122 

054404 115 040 

054407 110 105 

054412 116 117 

054415 105 040 

054420 101 102 

054423 105 056 

2485 054426 045 116 
054431 101 116 
054434 104 105 
054437 116 045 
054442 061 045 
054M5 040 110 
054450 123 040 
054453 105 105 
054456 040 104 
054461 114 105 
054464 105 104 
054467 106 122 
054472 115 040 
054475 110 105 
054500 116 117 
054503 105 040 
054506 101 102 
054511 105 056 

2486 054514 045 116 
054517 101 124 
054522 105 040 
054525 124 04S 
054530 040 12*i 
054533 102 114 
054536 040 110 
054541 123 040 
054544 105 105 
054547 040 103 
054552 105 101 
054555 105 104 
054560 0O0 

2487 054561 045 116 
054564 101 124 
054567 105 040 
054572 117 104 
054575 040 124 
054600 102 114 
054603 040 110 
054606 123 040 
054611 105 105 
054614 040 045 
054617 OOO 

2486 054620 123 101 



LOGDEL; ,ASCIZ /*N*AN0DE NtfDltfA HAS BEEN DELETED FROM THE NODE TABLE./ 



J 23 
101 
102 
116 
105 
124 
040 
117 
124 
040 
104 
124 
114 
000 
045 
117 
040 
104 
101 
101 
102 
116 
105 
124 
040 
117 
124 
040 
104 
124 
114 
000 
045 
110 
045 
101 
101 
105 
101 
102 
116 
114 
122 
056 

045 

110 
116 
105 
101 
105 
101 
102 
116 
124 



126 SAVED? ,ASCIZ /SAVED,/ 



TABCLRj .ASCIZ /KNtfATHE *T*A TABLE HAS BEEN CLEARED./ 



UNSHSGi .ASCIZ /*N*ATHE NODE TABLE HAS BEEN *T/ 



CZUACBO DEUNA N 
GLOBAL TEXT SEC 


^XHRCISER 


DIAG 


MACRO i 


054623 


105 


104 


056 


054626 


000 






2489 054627 


122 


105 


123 


054632 


124 


117 


122 


054635 


105 


104 


056 


054640 


000 






2490 05464 J 


045 


116 


04*: 


054644 


101 


124 


110 


054647 


105 


040 


103 


054652 


125 


122 


122 


054655 


105 


116 


124 


054660 


C40 


115 


105 


054663 


123 


123 


101 


054666 


107 


105 


040 


054671 


120 


101 


122 


054674 


101 


115 


105 


054677 


124 


105 


122 


054702 


123 


040 


101 


054705 


122 


105 


072 


054710 


000 






2491 054711 


045 


116 


045 


054714 


101 


124 


110 


054717 


105 


040 


103 


054722 


117 


114 


114 


054725 


105 


103 


124 


054730 


HI 


117 


116 


054733 


040 


117 


106 


054736 


040 


101 


114 


054741 


114 


040 


116 


054744 


117 


104 


105 


05474 7 


040 


101 


104 


054 752 


104 


122 


105 


054755 


123 


123 


105 


054760 


123 


040 


103 


054763 


117 


125 


114 


054 766 


104 


040 


124 


054771 


101 


113 


105 


054774 


040 


101 


?23 


054777 


040 


114 


:i7 


055002 


116 


107 


040 


055005 


101 


123 


040 


055010 


064 


060 


040 


055013 


115 


111 


116 


05501.6 


125 


124 


3 05 


055021 


123 


054 


000 


2492 055024 


045 


116 


045 


055027 


101 


110 


117 


055032 


12 7 


105 


126 


055035 


105 


122 


054 


055040 


040 


111 


106 


055043 


040 


116 


117 


055046 


040 


116 


105 


055051 


127 


040 


116 


055054 


117 


104 


105 


055057 


123 


040 


101 


055062 


122 


105 


040 


055065 


101 


104 


104 



F5 

22-MAR-84 10i53 PAGE 9-7 



RESTOR: , ASCIZ /RESTORED./ 



SEQ 57 



MSGPRM; .ASCIZ /UNKATHE CURRENT MESSAGE PARAMETERS ARE;/ 



MSGli .ASCIZ /KNKATBE COLLECTION OF ALL NODE ADDRESSES COULD TAKE AS LONG AS 40 MINUTES,/ 



HSGll: .ASCIZ AJNUAHOWEVfcR, If NO NEW NODES ARE AODED TO THE TABLE TOR A 10 MINUTE PERIOD/ 



gffiJJSKV^EKxSi 



G5 
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SEQ 58 



2493 



2494 



2495 



2496 



055070 


105 


104 


040 


055073 


124 


1\7 


040 


055076 


124 


110 


105 


055101 


040 


124 


101 


055104 


102 


114 


105 


055107 


040 


106 


117 


055112 


122 


040 


101 


C55115 


040 


061 


060 


055120 


040 


115 


111 


055123 


116 


125 


124 


055126 


105 


040 


120 


055131 


105 


122 


111 


C55134 


117 


104 


000 


055137 


045 


116 


QAl 


055142 


101 


124 


IK 


055145 


105 


040 


103 


055150 


117 


114 


114 


055153 


105 


103 


124 


055156 


111 


117 


116 


055161 


040 


127 


111 


055164 


114 


114 


O40 


055167 


123 


124 


117 


055 J 72 


120 


056 


045 


055175 


116 


000 




055177 


045 


116 


045 


055202 


101 


131 


117 


055205 


125 


040 


105 


055210 


116 


124 


105 


055213 


122 


105 


104 


055216 


040 


045 


124 


055221 


045 


101 


040 


055224 


ll*i 


117 


104 


055227 


105 


072 


040 


055232 


045 


124 


000 


055235 


045 


1 1 .6 


045 


055240 


101 


124 


110 


055243 


105 


040 


123 


055246 


120 


105 


103 


055251 


111 


106 


111 


055254 


105 


104 


040 


055257 


101 


104 


104 


055262 


122 


105 


123 


055265 


123 


040 


111 


055270 


123 


072 


040 


0552 73 


045 


124 


000 


055276 


045 


116 


045 


055301 


101 


124 


131 


055 304 


120 


Ho 


075 


055307 


045 


124 


045 


055512 


101 


054 


123 


055315 


111 


132 


105 


055320 


075 


045 


104 


055323 


064 


045 


101 


055326 


054 


103 


11/ 


055331 


120 


111 


105 


055334 


123 


075 


045 


055337 


104 


063 


000 



MSG12? ,ASCIZ /*N*ATHE COLLECTION WILL STOP.tfN/ 



MSG2; .ASCIZ /WWAYUU ENTERED *T*A NODE: *T/ 



MSG3; , ASCIZ /KNtfATHE SPECIFIED ADDRESS IS; «JT/ 



MSG4: . ASCIZ /*N*ATYPE»*TviA. SIZE -*D4*A, COPIES -*D3/ 
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SF.Q 59 



2497 








2498 055X42 


045 


U6 


045 


055345 


101 


040 


105 


055350 


124 


110 


105 


055353 


lc2 


116 


105 


055356 


124 


040 


1C4 


055361 


105 


106 


101 


055364 


125 


114 


124 


055367 


040 


101 


104 


055372 


104 


122 


105 


055375 


123 


123 


040 


055400 


050 


110 


105 


055403 


130 


051 


072 


055406 


040 


040 


045 


055411 


124 


000 




2499 055413 


045 


116 


062 


055416 


045 


101 


<y\o 


055421 


122 


117 


115 


055424 


040 


115 


111 


055427 


103 


122 


117 


055432 


103 


117 


104 


055435 


105 


040 


126 


055440 


105 


122 


123 


055443 


111 


117 


116 


055446 


040 


050 


104 


055451 


105 


103 


111 


055454 


115 


101 


114 


055457 


051 


072 


040 


055462 


045 


104 


063 


055465 


000 






2500 055466 


045 


116 


062 


0554 71 


045 


101 


040 


055474 


123 


127 


111 


0554^7 


124 


103 


110 


055502 


040 


120 


101 


055505 


103 


113 


040 


055510 


123 


105 


124 


055513 


040 


106 


117 


055516 


122 


040 


072 


055521 


000 






2501 055522 


045 


116 


045 


055525 


101 


040 


040 


055530 


040 


040 


040 


055533 


040 


040 


040 


055536 


122 


105 


115 


055541 


117 


124 


105 


055544 


040 


101 


116 


055547 


104 


040 


120 


055552 


117 


127 


105 


055555 


122 


040 


125 


055560 


120 


040 


102 


055563 


117 


117 


124 


055566 


O40 


105 


116 


0555 71 


101 


102 


114 


055574 


105 


104 


000 


2502 055577 


045 


116 


045 


055602 


101 


040 


040 



HDMSG1; 



.EVEN 

,ASCIZ 



/*N*A ETHERNET DEfAULT ADDRESS (HEX); *T/ 



HDMSG2: .ASCIZ /*N2*A ROM MICROCODE VERSION (DECIMAL): *D3/ 



H0MSG3} .ASCIZ /*N2*A SWITCH PACK SET FOR {/ 



H0MSG4: , ASCIZ /*N*A 



REMOTE AND POWER UP BOOT ENABLED/ 



HDMSGSt .ASCIZ /*N*A 



REMOTE BOOT ENABLED WITH ROM/ 



15 

SfyfiSE°T^IV N §E&fl6fi ERCISER DIAG MACRC Ml20 ° 22 - MAR - 8 * 10 : 53 ™GE 9-10 



SEQ 60 



2503 



2504 



2505 



2506 



055605 
055610 
055613 
055616 
C 55621 
055624 
055627 
055652 
055635 
055640 
055643 
055646 
055650 
055653 
055656 
055661 
055664 
055667 
055672 
055675 
055700 
055703 
055706 
0557)0 
055713 
055716 
055721 
055724 
055727 
CJ5732 
055735 
055740 
055743 
055746 
055751 
055754 
055757 
055762 
055765 
055770 
055773 
055776 
056001 
056004 
056007 
056012 
056014 
056017 
056022 
056025 
056030 
056033 
056036 
05604 1 
056044 
05604 7 
056052 



040 
040 
122 
117 
0*0 
117 
105 
102 
104 
111 
040 
115 
045 
101 
040 
040 
122 
117 
040 
117 
105 
102 
104 
045 
101 
040 
040 
122 
117 
040 
117 
104 
101 
105 
045 
101 
040 
040 
123 
106 
105 
040 
117 
105 
102 
104 
045 
101 
040 
040 
123 
106 
105 
040 
117 
104 
101 



040 
040 
105 
124 
102 
124 
116 
114 
040 
124 
122 
000 
116 
040 
O40 
040 
105 
124 
102 
124 
116 
114 
OOO 
116 
04 
040 
040 
105 
124 
102 
124 
111 
102 
104 
116 
040 
040 
040 
105 
040 
123 
114 
120 
116 
114 
000 
116 
040 
040 
040 
105 
040 
123 
114 
120 
HI 
102 



040 
040 
115 
105 
117 
040 
101 
1.05 
127 
110 
117 

045 
040 

040 
040 
115 
105 
117 
040 
101 
105 

045 

040 
040 
040 
115 
105 
117 
040 
123 
114 
000 
045 
040 
040 
040 
114 
124 
124 
117 
040 
101 
105 

045 
040 

040 
040 
114 
124 
124 
117 
040 
123 
114 



H0MSG6* .ASCIZ /*N*A 



REMOTE BOOT ENABLED/ 



H0MSG7} .ASCIZ /KNWA 



REMOTE BOOT DISABLED/ 



HDMSG8: .ASCII /*N*A 



SELF TEST LOOP ENABLED/ 



HDMSGOj , ASCIZ /*N*A 



SELF TEST LOOP DISABLED/ 



C2UACB0 DEUNA NI EXERCISER DIAG MACRO M1200 
GLOBAL TEXT SECTION 



J5 
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S£Q 61 



2507 
2508 



2509 



25X0 



056055 

056060 
056063 
056066 
056071 
056074 
056077 
056102 
056105 
056110 
056113 
056116 
056121 
056124 
056127 
056132 
056135 
0!>6140 
0561'3 
056146 
056151 
056154 
056157 
056161 
056164 
056167 
056172 
056175 
056200 
056203 
056206 
056211 
056214 
056217 
056222 
056225 
056230 
056233 
056236 
056241 
056244 

05624 i 

056252 

056254 

05625 7 
056262 
056265 
056270 
056273 
0562 76 
056301 
056304 
056307 
056312 
056315 
056320 



105 

045 
101 
115 
116 
123 
115 
131 
117 
124 
040 
124 
122 
111 
105 
117 
105 
040 
105 
Hi 
122 
116 
051 
045 
101 
124 
123 
116 
040 
103 
123 
131 
117 
131 
040 
105 
105 
105 
040 
040 
101 
105 
051 
045 
045 
110 
114 
117 
077 
040 
120 
040 
111 
110 
120 
105 



104 

116 
103 
115 
104 
125 
101 
040 
122 
110 
116 
127 
113 
116 
122 
116 
103 
105 
122 
123 
040 
111 
000 
116 
050 
040 
040 
114 
116 
105 
101 
040 
040 
120 
124 
040 
124 
122 
111 
102 
103 
124 
000 
116 
101 
135 
120 
122 
Oil 
124 
105 
124 
123 
105 
040 
130 



000 



045 HELP1: 

117 

101 

040 

115 

122 

106 

040 

105 

105 

117 

C40 

124 

103 

116 

124 j 

130 

103 

105 

050 

105 



045 

111 
111 
117 
131 
105 
123 
122 
124 
124 
105 
110 
114 
12* 
123 
116 
122 
113 
123 

062 

133 
105 
040 
040 
055 
131 
123 
110 
040 
114 
124 
124 



.EVEN 

.ASCIZ 



\*N*ACCMMAND SUMMARY FOR THE NETWORK INTERCONNECT EXERCISER CNIE)\ 



HELP2: .ASCIZ \«*N*A(IT IS ONLY NECESSARY TO TYPE THE LETTERS IN BRACKETS*>\ 



HF.LP3: .ASCIZ \tfN2*A[H]ELP OR ? 



- TYPES THIS HELP TEXTA 



SflJ8MVWi&8 ERCISER DIAG MACR0 M120 ° 



056323 


056 


000 




2511 056325 


045 


116 


062 HELP4 j 


056330 


045 


101 


133 


056333 


105 


135 


130 


056336 


111 


124 


Oil 


056341 


Oil 


055 


040 


0563^4 


122 


105 


124 


056347 


125 


122 


116 


056352 


040 


124 


117 


056355 


040 


124 


110 


056360 


105 


040 


123 


056363 


125 


120 


105 


056366 


122 


126 


111 


056371 


123 


117 


122 


056374 


056 


000 




2512 056376 


045 


116 


062 HELP5{ 


056401 


045 


101 


133 


056404 


123 


110 


135 


056407 


117 


12 7 


040 


056412 


133 


116 


135 


056415 


117 


104 


105 


056420 


123 


Oil 


055 


056423 


040 


120 


122 


056426 


111 


116 


124 


056431 


123 


040 


111 


056-434 


116 


106 


117 


056437 


122 


115 


101 


056442 


124 


111 


117 


056445 


116 


040 


111 


056450 


116 


040 


103 


056453 


l.TJ 


122 


122 


056456 


105 


116 


124 


056461 


C40 


116 


117 


056464 


104 


105 


040 


056467 


124 


101 


102 


056472 


114 


105 


056 


056475 


000 






2513 056476 


045 


116 


062 HELP6: 


056501 


045 


101 


133 


056504 


123 


110 


135 


056507 


117 


127 


040 


056512 


133 


115 


135 


056515 


105 


123 


123 


056520 


101 


107 


105 


056523 


Oil 


055 


040 


056526 


120 


122 


111 


056531 


116 


124 


123 


056534 


040 


124 


110 


056537 


105 


040 


123 


0565-12 


105 


114 


105 


056545 


103 


124 


105 


056550 


104 


040 


115 


056553 


105 


123 


123 


056556 


101 


107 


105 


056561 


040 


124 


131 


056564 


120 


105 


0S4 


056567 


040 


123 


111 



i<5 
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.ASC.CZ \*N2*A[E]XIT 



SEQ 62 



- RETURN TO THE SUPERVISORS 



.ASCIZ \*Nfc*AESH]OW CNlOOES 



- PRINTS INFORMATION IN CURRENT NODE TABLE. \ 



.ASCIZ \*N2*A[SK]0W [MESSAGE - PRINTS THE SELECTED MESSAGE TYPE, SIZE AND COPIES. 



L5 
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SEQ 63 



2514 



2515 



2516 



056572 
056575 
056600 
056603 
056606 
056611 
056614 
056617 
056622 
056625 
056630 
056633 
056636 
056641 
056644 
056647 
056652 
056655 
056660 
056663 
056666 
056671 
056674 
056677 
056702 
056705 
056710 
056713 
056716 
056721 
056722 
056725 
056730 
056733 
056736 
056741 
056744 
056747 
056752 
056755 
056760 
056763 
056766 
056771 
056774 
056777 
057002 
057005 
057010 
057012 
057015 
057020 
057023 
057026 
057051 
057034 
057037 



132 
101 
040 
120 
123 
045 
045 
123 
117 
133 
117 
124 
123 
040 
111 
123 
110 
114 
040 
126 
040 
125 
105 
040 
040 
105 
117 
040 
104 
000 
045 
045 
122 
116 
114 
117 
101 
057 
123 
116 
055 
L25 
040 
105 
117 
120 
122 
105 
056 
0*5 
045 
122 
116 
101 
114 
101 
075 



105 
116 
103 
111 
056 
116 
101. 
110 
127 
103 
125 
105 
040 
120 
116 
040 
105 
117 
114 
105 
103 
116 
122 
117 
124 
040 
123 
116 
105 

116 
101 
135 
040 
135 
120 
111 
120 
123 
116 
040 
11C 
124 
040 
117 
101 
040 
123 
000 
116 
101 
135 
040 
135 
057 
123 
116 



040 

104 

117 

105 

000 

062 HELP7: 

133 

135 

040 

135 

116 

122 

055 

122 

124 

124 

040 

127 

105 

114 

117 

124 

123 

106 

11C 

110 

124 

117 

056 



062 
133 
125 
133 
117 
120 
122 
101 
075 
040 
122 
123 
110 
114 
120 
111 
124 
124 



133 
125 

133 
114 
120 
123 

116 



ASCIZ \*N2*A[SH]0W IC]0UNTERS - PRINTS THE LOW LEVEL COUNTERS OF THE HOST NODE.N 



HELP6: .ASCIZ \*N2*A[R;jUN [L]OOPPAIR/PASS«NN - RUNS THE LOOPPAIR TESTA 



HELP9j .ASCIZ \*N2*A[R]UN [ A]LL/PASS«NN - RUNS THE NODE-TO-NODE TEST.\ 



CZUACBO DEUNA NI EXERCISER jIAG MACRO M1200 
GLOBAL TEXT SECTION 



M3 
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SEQ 64 



2517 



2518 



2519 



057042 
057045 
057050 
057053 
057056 
057061 
057064 
057067 
057072 
057075 
057100 
057101 
057104 
057107 
057112 
057115 
057120 
057123 
057126 
057131 
057134 
05^137 
057x42 
057145 
057150 
057153 
057156 
057161 
057164 
057167 
057172 
057175 
057200 
057203 
057206 
057211 
057214 
057217 
057222 
057225 
057230 
057233 
057236 
057241 
057244 
057247 
057252 
057255 
057260 
057263 
057266 
057270 
057273 
057276 
057301 
057304 
057307 



040 
122 
123 
110 
116 
105 
117 
117 
040 
123 
000 
045 
045 
122 
116 
104 
122 
124 
101 
075 
040 
122 
123 
110 
114 
120 
111 
103 
124 
124 
045 
045 
122 
116 
120 
124 
122 
120 
123 
116 
040 
116 
124 
040 
123 
107 
120 
124 
116 
105 
056 
045 
045 
115 
123 
107 
133 



055 
125 
040 
105 
117 
055 
055 
104 
124 
124 

116 

101 
135 
040 
135 
105 
057 
123 
116 
055 
125 
040 
105 
117 
040 
122 
124 
1C5 
056 
116 
101 
135 
040 
135 
124 
116 
101 
075 
040 
122 
123 
110 
115 
123 
105 
101 
105 
040 
123 
000 
116 
101 
135 
123 
105 
124 



040 
116 
124 
040 
104 
124 
116 
105 
105 
056 

062 
133 
125 
133 
111 
103 
120 
123 
116 
040 
116 
124 
040 
117 
3 04 
105 
040 
123 
000 
062 
133 
125 
133 
101 
105 
057 
123 
116 
055 
125 
040 
105 
105 
101 
040 
124 
122 
124 
124 

062 
133 
105 
101 
057 
135 



HELP10: .ASCIZ \*N2*A[R;)UN [DlIRECT/PASS^NN - RUNS THE LOOP DIRECT TEST.X 



HELPUj .ASCIZ \*N2#A[R]UN CP]ATTERH/PASS-NN - RUNS THE MESSAGE PATTERN TESTA 



HELP12: .ASCIZ \f«N2KA[M]ESSAGE/[ T JYPE-A/[S]IZE-N/[C]OPItS-M - ALLOWS THE OPERATOR T0\ 



ms?&vkwj& 



N5 
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SEQ 65 



2520 



2521 



05731? 
057315 
057320 
057323 
057326 
057331 
057334 
057337 
057342 
057345 
057350 
057353 
057356 
057361 
057364 
0573S7 
057372 
057375 
057400 
057403 
057406 
057411 
057414 
057417 
057422 
057425 
057430 
057433 
057436 
057441 
057444 
057447 
057452 
057455 
057460 
057463 
057466 
057471 
05/474 
057477 
057502 
057505 
057510 
057513 
057516 
057521 
057524 
057527 
057532 
057535 
057540 
057543 
057546 
057551 
057554 
057557 
057562 



131 
075 
133 
111 
075 
133 
117 
105 
115 
040 
114 
123 
110 
117 
122 
117 
124 
045 
101 
104 
131 
110 
104 
101 
124 
105 
101 
040 
120 
040 
13? 
101 
040 
120 
120 
101 
124 
123 
045 
045 
116 
104 
101 
057 
120 
055 
116 
122 
101 
110 
111 
114 
104 
105 
040 
124 
124 



120 
101 
123 
132 
116 
103 
120 
123 
040 
101 
117 
040 
105 
120 
101 
122 
117 
116 
115 
111 
040 
105 
105 
125 
040 
123 
107 
124 
105 
123 
105 
116 
103 
131 
101 
115 
105 
056 
116 

135 
105 
104 
124 
105 
040 
124 
123 
040 
131 
103 
040 
104 
123 
111 
117 
110 



*05 
057 
135 
105 
057 
135 
111 
075 
055 
114 
127 
124 
040 
105 
124 
040 
000 
045 
117 
106 
124 
040 
10b 
114 
115 
123 
105 
131 
054 
111 
040 
104 
117 
040 
122 
105 
122 
000 
062 
J 33 
117 
040 
122 
131 
C40 
105 
105 
040 
120 
123 
101 
101 
122 
123 
116 
040 
105 



HELP13: .ASCIZ \*N*AMODP'V THE DEFAULT MESSAGE TYPE, SIZE AND COPY PARAMETERS. \ 



HELP14* .ASCIZ \*N2*A[N]0DE ADR/TYPE - ENTERS A PHYSICAL ADDRESS INTO THE NODE\ 



CZUACBO DEUNA NI EXERCISER DIAG MACRO M1200 
GLOBAL TEXT SECTION 



B6 
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SEQ 66 



2522 



2523 



2S24 



057565 
057570 

057573 
057576 
037C01 
057604 
057607 
057612 
057615 
057620 
057623 
057626 
057631 
057634 
057637 
057642 
057645 
057650 
0576^3 
057656 
057661 
057664 
057667 
057672 
057675 
057676 
057701 
057704 
057707 
057712 
057715 
057720 
05 7/23 
057 726 
057731 
057734 
057737 
057742 
057745 
057 750 
057753 
057756 
057761 
057764 
057765 
057770 
0577 73 
057776 
060001 
060004 
060007 
060012 
060015 
060020 
060023 
060026 
060031 



040 


116 


117 


104 


105 


000 


045 


116 


045 


101 


124 


101 


102 


114 


105 


056 


040 


040 


124 


110 


105 


040 


124 


131 


120 


105 


040 


103 


101 


116 


040 


102 


105 


040 


105 


111 


124 


110 


105 


122 


040 


133 


124 


135 


101 


122 


107 


105 


124 


040 


050 


104 


105 


106 


101 


125 


114 


124 


051 


040 


117 


122 


040 


133 


101 


135 


123 


123 


111 


123 


124 


056 


000 






045 


116 


062 


045 


101 


133 


123 


125 


135 


115 


115 


101 


122 


131 


040 


055 


040 


120 


122 


111 


116 


124 


123 


040 


101 


040 


123 


125 


115 


115 


101 


122 


131 


040 


117 


106 


040 


124 


no 


105 


040 


124 


105 


123 


124 


040 


122 


105 


123 


125 


114 


124 


123 


056 


000 






045 


116 


062 


045 


101 


133 


102 


135 


125 


111 


114 


104 


040 


055 


040 


102 


125 


111 


114 


104 


123 


040 


101 


040 


124 


101 


102 


114 


105 


040 


117 


1 


040 


122 


105 


115 


117 


124 


105 



HEL.P15! .ASCIZ \*N*ATABLE, THE TYPE CAN BE EITHER [TJARGET COEfAULT) OR [A)SSIST.\ 



HELP 16 1 . ASCIZ \*N2*A[SU)MMARY - PRINTS A SUMMARY Of THE TEST RESULTS. \ 



HELP17* .ASCIZ \*N2*A[8]UILD • BUILDS A TABLE OF REMOTE NODE PHYSICAL ADDRESSES B>\ 



C5 
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5EQ 67 



2535 



2526 



2527 



8*888 


040 
104 


W 


IK 


060042 


120 


110 


131 


060045 


123 


111 


103 


060050 


101 


114 


040 


O60O5S 


101 


104 


104 


060056 


122 


105 


123 


060061 


123 


105 


123 


060064 


040 


102 


131 


060067 


000 






060070 


045 


116 


045 


060073 


101 


114 


111 


060076 


123 


124 


105 


060101 


116 


111 


116 


060104 


107 


040 


124 


060107 


117 


040 


111 


060112 


104 


040 


115 


060115 


105 


123 


123 


060120 


101 


107 


105 


060123 


123 


040 


117 


060126 


116 


040 


124 


060131 


no 


105 


040 


060134 


116 


111 


056 


060137 


000 






060140 


045 


116 


062 


060143 


045 


101 


133 


060146 


103 


135 


114 


0601M. 


105 


101 


122 


060154 


040 


133 


116 


060157 


135 


117 


104 


060162 


105 


057 


101 


060165 


104 


:c? 


040 


060170 


055 


040 


122 


060173 


105 


115 


117 


060176 


126 


105 


123 


060201 


040 


124 


no 


060204 


105 


040 


116 


060207 


117 


104 


105 


060212 


040 


123 


120 


060215 


105 


103 


111 


060220 


106 


111 


105 


060223 


104 


040 


102 


060226 


131 


040 


105 


060231 


ill 


124 


110 


060234 


105 


122 


040 


06023/ 


101 


104 


122 


060242 


000 






060243 


045 


116 


045 


060246 


101 


117 


122 


060251 


040 


116 


117 


060P54 


104 


105 


040 


060257 


114 


117 


107 


060262 


111 


103 


101 


060265 


114 


040 


116 


060270 


101 


115 


105 


060? 7 3 


040 


106 


l?2 


0^02 7£ 


117 


115 


OiVG 



HELPlSj ,ASCIZ MINHALISTENING TO 10 MESSAGES ON THE NI . \ 



HEIP19; .ASCIZ \*N2*A[C]IEAR [N10DE/A0R - REMOVES THE NODE SPECIFIED BY EITHER ADRN 



HELP20i , ASCIZ \«N*AQR NODE LOGICAL NAME FROM THE NODE TABLE »\ 



CZUACBO DEl^A NI EXERCISER DIAG MACRO M1200 
GLOBAL TEXT SECTION 



D6 
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SEQ 68 



2528 



2529 



2530 



060301 


124 


110 


105 


060304 


040 


116 


117 


060307 


104 


105 


040 


060312 


124 


101 


102 


060315 


114 


105 


056 


060320 


000 






060321 


045 


116 


062 


060324 


045 


101 


133 


060327 


103 


135 


114 


060332 


105 


101 


122 


060335 


040 


133 


116 


060540 


IIS 


117 


104 


060343 


105 


057 


133 


060346 


101 


114 


135 


060351 


114 


040 


055 


060354 


040 


103 


114 


060357 


105 


101 


122 


060362 


123 


040 


124 


060365 


110 


105 


040 


060370 


116 


117 


104 


060373 


105 


040 


124 


060376 


101 


102 


114 


060401 


105 


056 


OOO 


060404 


045 


116 


062 


060407 


045 


101 


133 


060412 


103 


135 


114 


060415 


105 


101 


122 


060420 


040 


133 


115 


060423 


135 


105 


123 


060426 


123 


101 


107 


060431 


105 


040 


055 


060434 


040 


123 


105 


060437 


124 


123 


040 


060442 


101 


114 


114 


060445 


040 


115 


105 


060450 


123 


123 


101 


060453 


107 


105 


040 


060456 


120 


101 


122 


060461 


101 


115 


105 


060464 


124 


105 


122 


060467 


123 


040 


124 


060472 


117 


040 


104 


060475 


105 


106 


101 


060500 


125 


114 


124 


060503 


056 


000 




060505 


045 


116 


062 


060510 


045 


101 


133 


060513 


103 


135 


114 


060516 


105 


101 


122 


060521 


040 


133 


1?3 


060524 


135 


125 


115 


060527 


115 


101 


122 


060532 


131 


040 


0«*5 


060535 


040 


103 


U4 


060540 


105 


101 


122 


06054 3 


123 


040 


124 


060546 


110 


105 


040 



HELP21$ .ASCIZ \*N2*A[C]LEAR [N]0DE/( AL]L - CLEARS THE NODE TABLE. \ 



HELP22J .ASCIZ \*N2*ACC)LEAR [MJESSAGE - SETS ALL MESSAGE PARAMETERS TO DEFAULT. \ 



HELP23i .ASCIZ \*N2*A[ C]LEAR [S]UMMARY - CLEARS THE TABLE OF SUMMARY TEST DATA.\ 



S£ 



L°T?xV N SEch^ ERCISER DIAG MACR0 Ml2 °° 



E6 
22 -MAR -84 10 5 53 PAGE 9-19 



SEQ 69 



2531 



2532 



060551 


124 


101 


102 


060554 


114 


105 


040 


060557 


117 


106 


040 


060562 


123 


125 


115 


060565 


115 


101 


122 


060570 


131 


040 


124 


060573 


105 


123 


124 


060576 


O40 


104 


101 


060601 


124 


101 


056 


060604 


000 






060605 


045 


116 


062 


060610 


045 


101 


133 


060613 


111 


135 


104 


060616 


105 


116 


124 


060621 


111 


106 


131 


0606.?* 


040 


101 


104 


060627 


122 


040 


055 


060632 


040 


125 


123 


060635 


105 


123 


040 


060640 


124 


110 


105 


060643 


O40 


122 


105 


060646 


121 


125 


105 


060651 


123 


124 


040 


060654 


111 


104 


04J 


060657 


106 


125 


116 


060662 


103 


124 


111 


060665 


117 


116 


040 


060670 


124 


117 


040 


060673 


111 


104 


105 


060676 


116 


124 


111 


060701 


106 


131 


040 


060704 


101 


040 


122 


060707 


105 


115 


117 


060712 


124 


105 


040 


060715 


116 


117 


104 


060720 


105 


040 


117 


060723 


116 


040 


124 


060726 


110 


105 


040 


060731 


116 


111 


056 


060734 


000 






060735 


045 


116 


062 


060740 


045 


101 


133 


060743 


123 


101 


135 


060746 


126 


105 


040 


060751 


055 


040 


123 


060754 


101 


126 


105 


060757 


123 


040 


124 


060762 


110 


105 


040 


060765 


103 


117 


116 


060770 


124 


105 


116 


060773 


124 


123 


040 


060776 


11? 


106 


040 


061001 


124 


110 


105 


061004 


040 


116 


117 


061007 


104 


105 


040 


061012 


124 


101 


102 


061015 


114 


105 


056 



062 HELP24: .ASCIZ \*N2*A[ I IDENTIFY ADR - USES THE REQUEST ID FUNCTION TO IDENTIFY A REMOTE NOD 



HELP25{ .ASCIZ \*N2*A[SA]vE - SAVES THE CONTENTS OF THE NODE TABLE. \ 



K^ TglV N §E^lSS ERC1SER DIAG MACR ° M120 ° 



F6 



22-MAR-84 10;53 PAGE 9-20 



SEQ 70 



2533 



2534 



UL 



2535 



061020 


000 






061021 


045 


116 


062 


061024 


045 


101 


133 


061027 


125 


135 


116 


061032 


123 


101 


126 


061035 


105 


040 


055 


061040 


040 


122 


105 


061043 


120 


114 


101 


061046 


103 


105 


123 


061051 


040 


124 


110 


061054 


105 


040 


103 


061057 


125 


122 


122 


061062 


105 


116 


124 


061065 


040 


116 


117 


061070 


104 


105 


040 


061073 


124 


101 


102 


061076 


114 


105 


040 


061101 


127 


111 


124 


061104 


110 


040 


124 


061107 


110 


105 


040 


061112 


123 


101 


126 


061115 


105 


104 


040 


061120 


117 


116 


105 


061123 


056 


000 




061125 


045 


116 


045 


061130 


123 


070 


045 


061133 


101 


116 


117 


061136 


124 


105 


123 


061141 


072 


040 


061 


061144 


051 


040 


101 


061147 


104 


122 


040 


061152 


111 


123 


040 


061155 


124 


no 


105 


061160 


040 


120 


110 


061163 


131 


123 


111 


061166 


103 


101 


114 


061171 


040 


101 


104 


061174 


104 


122 


105 


061177 


123 


123 


040 


061202 


117 


106 


04u 


061205 


101 


040 


116 


061210 


117 


104 


105 


061213 


040 


1)7 


116 


061216 


040 


124 


110 


0612*1 


105 


040 


116 


061224 


111 


056 


000 


061227 


045 


116 


045 


061232 


123 


070 


045 


061235 


101 


040 


040 


061240 


040 


040 


040 


061243 


040 


040 


062 


061246 


051 


040 


120 


061251 


101 


123 


123 


061254 


040 


103 


117 


061257 


125 


11. 


i.24 


061262 


040 


Ill 


123 


061265 


040 


101 


040 



HELP26} .ASCIZ \*N2*A[U]NSAVE - REPLACES THE CURRENT NODE TABLE WITH THE SAVED ONE A 



HELP27: *ASCIZ \*N*S6f<AN0TESi 1) ADR IS THE PHYSICAL ADDRESS OF A NODE ON THE NI,\ 



HELP28; »ASCIZ \*N#S8tfA 



2) PASS COUNT IS A DECIMAL NUMBER BETWEEN 1 AND 65534, A OEFA , 



5 



G6 



M^SY^ 


fcgpCISER 


DIAG 


MACRO M1200 22 


061270 


104 


105 


103 


061273 


111 


115 


101 


061276 


114 


040 


116 


061301 


125 


115 


102 


061304 


105 


122 


040 


061307 


102 


105 


124 


061312 


127 


105 


105 


061315 


116 


040 


061 


061320 


040 


101 


116 


061323 


104 


040 


066 


061326 


065 


065 


063 


061531 


064 


056 


040 


061334 


101 


040 


104 


061337 


105 


IOC 


101 


061342 


125 


114 


124 


061345 


000 






2536 061346 


045 


116 


045 H6LP29: 


061351 


123 


070 


045 


061354 


101 


040 


040 


061357 


040 


040 


040 


061362 


040 


040 


040 


061365 


040 


040 


126 


061370 


101 


114 


125 


061373 


105 


040 


117 


061376 


106 


040 


061 


061401 


040 


111 


123 


061404 


040 


101 


123 


061407 


123 


125 


115 


061412 


1C5 


104 


056 


061415 


000 






2537 061416 


045 


116 


045 HELP30? 


061421 


123 


070 


045 


061424 


101 


040 


040 


061427 


040 


040 


040 


061432 


040 


040 


040 


061435 


040 


040 


123 


061440 


120 


105 


103 


061443 


111 


106 


131 


061446 


111 


116 


107 


061451 


040 


055 


061 


061454 


040 


103 


301 


061457 


125 


123 


105 


061462 


123 


040 


124 


061465 


110 


105 


040 


061470 


124 


105 


123 


061473 


124 


040 


124 


061476 


117 


040 


102 


061501 


105 


040 


122 


061504 


125 


116 


040 


0615O7 


111 


116 


104 


061512 


105 


106 


111 


061515 


116 


101 


124 


061520 


105 


114 


131 


061523 


056 


000 




253© 








2539 






I 


2540 






# 



SEQ 71 



• ASCIZ \*Nt<S6*A 



VALUE OF 1 IS ASSUMED. \ 



.ASCIZ \*N*S8*A 



SPECIFYING -1 CAUSES THE TEST TO 8E RUN INDEFINITELY. \ 



.EVEN 

TEST MESSAGES ANO ARGUMENTS 



H6 

S^86^°T2IV N §E&h6fi ERCISER DIAG NACR0 Ml20 ° 2fi - MAR -W 10 ? 53 PAGE 9-82 



SEQ 72 



2541 








2542 








2543 061526 


045 


116 


045 


061531 


101 


040 


120 


061534 


101 


123 


123 


061537 


040 


101 


102 


061542 


117 


122 


124 


061545 


105 


104 


041 


061550 


000 






2544 061551 


045 


116 


045 


061554 


124 


045 


101 


061557 


040 


124 


105 


061562 


?23 


124 


040 


061565 


055 


055 


040 


061570 


000 






2545 061571 


045 


116 


045 


061574 


124 


045 


101 


061577 


040 


116 


117 


061602 


104 


105 


072 


063605 


040 


045 


124 


061610 


000 






2546 061611 


045 


124 


045 


061614 


101 


040 


105 


061617 


122 


122 


117 


061622 


122 


000 




2547 061624 


045 


116 


045 


061627 


124 


045 


101 


061632 


040 


116 


117 


061635 


104 


105 


072 


061640 


040 


045 


124 


061643 


045 


124 


045 


061646 


101 


040 


116 


061651 


117 


104 


105 


061654 


072 


040 


045 


061657 


124 


000 




2548 061661 


045 


101 


04C 


061664 


055 


040 


122 


061667 


105 


123 


120 


061672 


117 


116 


123 


061675 


105 


040 


117 


061700 


113 


000 




2549 061702 


045 


116 


045 


061705 


101 


040 


055 


061710 


040 


122 


105 


061713 


103 


105 


111 


061716 


126 


105 


040 


061721 


101 


123 


123 


061724 


111 


123 


124 


061727 


040 


055 


040 


061732 


122 


105 


123 


061735 


120 


117 


116 


061740 


123 


105 


040 


061743 


117 


113 


000 


2550 061746 


045 


116 


045 


061751 


101 


040 


055 


061754 


040 


124 


122 


061757 


101 


116 


123 



PASABT: , ASCIZ /*N*A PASS ABORTED!/ 



TSTMS1: , ASCIZ /*N*T*A TEST -- / 



TSTHS2: .ASCIZ /KNHTtfA NODE* *T/ 



TSTMS3} .ASCIZ /*T*A ERROR/ 



TSTMS4; .ASCIZ /*N*T*A NODE; *T*T*A NODE} *!/ 



OK; 



.ASCIZ /*A - RESPONSE OK/ 



OKRE; .ASCIZ /*N*A - RECEIVE ASSIST - RESPONSE OK/ 



OKTR; , ASCIZ /*N*A - TRANSMIT ASSIST - RESPONSE OK/ 



CZUACBO DEUNA NI EXERCISER DIAG MACRO M1200 
GUOBmL TEXT SECTION 



16 



22-MAR-84 10:53 PAGE 9-23 



SEQ 73 



061762 


115 


111 


124 


061765 


040 


101 


123 


061770 


123 


111 


123 


061773 


124 


040 


055 


061776 


040 


122 


105 


062001 


123 


120 


117 


062004 


116 


123 


105 


062007 


040 


117 


113 


062012 


000 






2551 062013 


045 


116 


045 


062016 


101 


040 


055 


062021 


040 


106 


125 


062024 


114 


114 


040 


062027 


101 


123 


123 


062032 


111 


123 


124 


062035 


040 


055 


040 


062040 


122 


105 


123 


062043 


120 


117 


116 


062046 


123 


105 


040 


062051 


117 


113 


000 


2552 062054 


045 


116 


045 


062057 


101 


105 


122 


062062 


122 


117 


122 


062065 


040 


117 


103 


062070 


103 


125 


122 


062073 


105 


104 


040 


062076 


127 


111 


124 


062101 


110 


040 


045 


062104 


124 


045 


101 


062107 


040 


115 


105 


062112 


123 


123 


101 


062115 


107 


105 


040 


062120 


124 


131 


120 


062123 


105 


000 




2553 062125 


045 


101 


040 


062130 


104 


101 


124 


0*2133 


101 


040 


120 


062136 


101 


124 


124 


062141 


105 


122 


116 


062144 


072 


040 


045 


062147 


124 


000 




2554 062151 


101 


114 


114 


062154 


040 


116 


117 


062157 


104 


105 


000 


2555 062162 


114 


117 


117 


062165 


120 


120 


101 


062170 


111 


122 


000 


2556 062173 


114 


117 


117 


062176 


120 


040 


104 


062201 


11.1 


122 


105 


062204 


103 


124 


000 


2557 062207 


106 


125 


114 


062212 


114 


040 


101 


062215 


123 


123 


111 


062220 


123 


124 


000 


2556 062223 


124 


122 


101 


062226 


116 


123 


115 



OKFU: .ASCIZ /*N*A - FULL ASSIST - RESPONSE OK/ 



MESPATj , ASCIZ /#N*AERROR OCCURED WITH *T*f\ MESSAGE TYPE/ 



MESPAlt , ASCIZ /*A DATA PATTERN: *T/ 



ALL NOD: , ASCIZ /ALL NODE/ 



LUPAIR: .ASCIZ /LOOPPAIR/ 



DIRECT: , ASCIZ /LOOP DIRECT/ 



FULAST: .ASCIZ /FULL ASSIST/ 



TRAST: % ASCIZ /TRANSMIT ASSIST/ 



J6 

8tlJBSL T?xV N SE? ; fl&i5 ERC:rSER ° IAG MACR ° Ml20 ° 22 " MAR " 84 10lS3 PAGE 9 "24 



SEQ 74 



2559 



2560 



2561 



2562 



2563 
2564 



2565 
2566 

2567 

2563 
2569 
2570 
2571 
2572 
2573 

2574 
2575 



062231 
062234 
062237 
062242 
062243 
062246 
062251 
062254 
062257 
062262 
062265 
062270 
062273 
062276 
062301 
062302 
062305 
062310 
062313 
062316 
062321 
062324 
062327 
062332 
062333 
062340 
062342 
062345 
062350 
062351 
062354 
062357 
062362 
062365 
062370 



062372 
062375 
062400 
062403 
062405 
062410 
062413 
062416 
062420 
062423 
062425 
062430 
062433 
062436 
062441 
062444 
06244 7 
G62451 
062454 
062457 



111 
101 
111 
000 
122 
105 
105 
123 
123 
115 
123 
105 
101 
105 
000 
116 
122 
120 
123 
105 
105 
111 
040 
1L4 
123 
116 
114 
107 
000 
104 
301 
117 
101 
123 
000 



101 
110 
117 
123 
132 
117 
061 
124 
060 
124 
103 
124 
117 
122 
105 
105 
124 
123 
115 
131 



124 
123 
123 

105 
111 
040 
123 
124 
105 
101 
040 
124 
122 

117 
105 
117 
105 
130 
123 
126 
103 
114 
111 

ooo 

105 
124 

101 
040 
115 
122 

117 



114 
101 
116 
OOO 
105 
123 
101 
000 
101 
OOO 
103 
124 
120 
040 
114 
130 
000 
125 
101 
000 



040 
123 

124 

103 
126 
101 
111 
000 
123 
107 
120 
124 
116 

040 

123 
116 
000 
103 
123 
105 
117 
111 
117 

116 
110 

124 

103 
120 
111 
116 



120 
000 
105 

122 
000 

114 

114 

111 
000 
105 
123 
000 

111 

115 
122 



RECAST: , ASCIZ /RECEIVE ASSIST/ 



PATTRN; .ASCIZ /MESSAGE PATTERN/ 



NOftESP: .ASCIZ /NO RESPONSE/ 



RETRY: .ASCIZ /EXCESSIVE COLLISION/ 



LENGTH: , ASCIZ 



COMPAR: .ASCIZ 



/LENGTH/ 

/DATA COMPARISON/ 



MSGTYO 
MSGTY1 
MSGTY2 
MSGTY3 
MSGTY4 
MSGTY5 
MSGTY6 



♦ EVEN 

.ASCIZ 

.ASCIZ 

.ASCIZ 

. ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 



CMOTYlj .ASCIZ 
CMDTY2: .ASCIZ 



/ALPHA/ 

/ONES/ 

/ZEROS/ 

/1ALT/ 

/OALT/ 

/CCITT/ 

/OPER SEL/ 

/EXIT/ 

/SUMMARY/ 



{MESSAGE TYPES 



{COMMAND TYPES 



I<6 



IlobS^texV^sec^ion 5 " 01 '^" orAG MACRC M120 ° 



22-MAR-84 10;53 PAGE 9-25 



SEQ 75 



2576 


062461 


102 


125 


111 


CM0TY3; 


.ASCIZ 


/BUILD/ 




062464 


114 


104 


000 








2577 


062467 
062472 


123 

127 


110 
000 


117 


CMDTY4: 


.ASCIZ 


/SHOW/ 


2578 


062474 
062477 


122 
000 


125 


116 


CMDTY5: 


. ASCIZ 


/RUN/ 


2579 


062500 


115 


105 


123 


CM0TY6: 


.ASCIZ 


/MESSAGE/ 




062503 


123 


101 


107 










062506 


105 


000 










2580 


062510 
062513 


116 
105 


117 
000 


104 


CMDTY7: 


.ASCIZ 


/NODE/ 


2581 


062515 


103 


114 


105 


CM0TY8: 


.ASCIZ 


/CLEAR/ 




062520 


101 


122 


000 








2582 


062523 


122 


105 


121 


CM0TY9: 


.ASCIZ 


/REQUEST ID/ 




062526 


125 


105 


123 










062531 


124 


040 


111 










062534 


104 


000 










2583 


062536 


116 


117 


104 


ARGTYli 


.ASCIZ 


/NODES/ 




0(2541 


105 


123 


000 








2584 


062544 


115 


105 


123 


ARGTY2j 


.ASCIZ 


/MESSAGES/ 




062547 


123 


101 


107 










062552 


105 


123 


000 








2585 


062555 


103 


117 


125 


ARGTY3: 


. ASCIZ 


/COUNTERS/ 




062560 


116 


124 


105 










062563 


122 


123 


000 








2586 


062566 


114 


117 


117 


ARGTY4: 


.ASCIZ 


/LOOPPAIR/ 




C62571 


120 


120 


101 










062574 


111 


122 


000 








2587 


062577 
06260? 


101 
000 


114 


114 


ARGTY5: 


.ASCIZ 


/ALL/ 


2588 


062603 


040 


101 


123 


ARGTY6: 


.ASCIZ 


/ ASSIST/ 




062606 


123 


111 


123 










062611 


124 


000 










2589 


062613 


124 


101 


122 


ARGTY7* 


.ASCIZ 


/TARGET/ 




062616 


107 


105 


124 










062621 


000 












2590 












.EVEN 




2591 


062622 


045 


116 


045 


NOCLKs 


, ASCIZ 


/KNtfABAD CLOCK 




062625 


101 


102 


101 










Oi 2630 


104 


040 


103 










062633 


114 


117 


103 










062636 


113 


040 


055 










062641 


040 


120 


122 










062644 


117 


107 


122 










06264 7 


101 


115 


040 










062652 


127 


111 


114 










062655 


114 


040 


110 










06i;660 


101 


116 


107 










062663 


040 


117 


116 










062666 


040 


042 


124 










062671 


111 


115 


105 










062674 


117 


125 


124 










062677 


042 


041 


041 










062702 


000 












2592 
















2593 










, 






2594 












UNA CQU 


NTFR TNFnRMATTn 



I ARGUMENT TYPES 



- PROGRAM WILL HANG ON "TIMEOUT " 1J / 



CZUACBO DEUNA NI EXERCISER [;IAG MACRO M1200 
GLOBAL TEXT SECTION 



L6 

22-MAR-84 10{53 PAGE 9-26 



SEQ 76 



2595 








2596 








2597 062703 


045 


116 


045 


062706 


12? 


065 


045 


062711 


101 


103 


117 


062714 


116 


124 


105 


062717 


116 


124 


123 


062722 


040 


117 


106 


062725 


040 


116 


117 


062730 


104 


105 


040 


062733 


045 


124 


045 


062736 


101 


040 


111 


062741 


116 


124 


105 


062744 


122 


116 


101 


062747 


114 


040 


10? 


062752 


117 


125 


116 


062755 


124 


105 


122 


062760 


123 


072 


000 


2598 062763 


045 


116 


062 


062766 


045 


101 


123 


062771 


105 


103 


117 


062 774 


116 


104 


123 


062777 


040 


123 


111 


063002 


116 


103 


105 


C63005 


040 


114 


101 


063010 


123 


124 


040 


063013 


132 


105 


122 


063016 


117 


105 


104 


063021 


072 


045 


123 


063024 


061 


065 


045 


063027 


132 


065 


000 


2599 063032 


045 


116 


045 


063035 


101 


120 


101 


063040 


103 


113 


105 


063041 


124 


123 


040 


063046 


122 


105 


103 


063051 


105 


111 


126 


063054 


105 


104 


072 


063057 


045 


123 


061 


063062 


071 


045 


124 


063065 


000 






2600 063066 


045 


116 


045 


063071 


101 


115 


125 


063074 


114 


124 


111 


063077 


103 


101 


123 


063102 


124 


040 


120 


063105 


101 


103 


113 


063110 


105 


124 


123 


063113 


040 


122 


105 


063116 


103 


105 


111 


063121 


126 


105 


104 


063124 


072 


045 


123 


063127 


071 


045 


124 


063132 


000 






2601 063133 


045 


116 


045 


06317,6 


101 


120 


101 


063141 


103 


113 


105 



CNTROOi .ASCIZ /tfN*S5*AC0NTENTS OF NODE *TXA INTERNAL COUNTERS:/ 



CNTROl: .ASCIZ /*N2*ASEC0NDS SINCE LAST ZEROED :*S15*Z5/ 



CNTR02: .ASCIZ /UNrfAPACKETS RECEIVED;*S19*T/ 



CNTR03; .ASCIZ /*N*AMULTICAST PACKETS RECEIVED :*59*T/ 



CNTR04: .ASCTZ /HNHAPACKETS REC'D WITH ERROR - BITMAP ;*S9*33/ 



g£«KE°TSV N 8EBhSi 



M6 
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SEQ 77 



2602 



2603 



2604 



2605 



063144 


124 


123 


040 


063147 


122 


105 


103 


063152 


047 


104 


040 


063155 


127 


111 


124 


063160 


110 


040 


105 


063163 


122 


122 


117 


063166 


122 


040 


055 


063171 


040 


102 


111 


063174 


124 


115 


lOi 


063177 


120 


072 


045 


063202 


123 


071 


045 


063205 


102 


063 


000 


063210 


045 


116 


045 


063213 


101 


120 


101 


063216 


103 


113 


105 


063221 


124 


123 


040 


063224 


122 


105 


103 


063227 


105 


111 


126 


063232 


105 


104 


04 


063235 


127 


111 


124 


063240 


110 


040 


10? 


063243 


122 


122 


11> 


063246 


122 


072 


045 


063251 


123 


061 


063 


063254 


045 


132 


065 


06325^ 


000 






063260 


045 


116 


045 


063263 


101 


104 


101 


063266 


124 


101 


040 


063271 


102 


131 


124 


063274 


105 


123 


040 


063277 


122 


105 


103 


063302 


105 


111 


126 


063305 


105 


104 


072 


063310 


045 


123 


061 


063313 


066 


045 


124 


063316 


000 






063317 


045 


116 


045 


063322 


101 


115 


125 


0SJ325 


114 


124 


111 


063330 


103 


101 


123 


063333 


124 


040 


104 


063336 


101 


124 


101 


063341 


040 


102 


131 


063344 


124 


105 


123 


063347 


040 


122 


105 


063352 


103 


105 


111 


063355 


126 


105 


104 


063360 


072 


045 


123 


063363 


066 


045 


124 


063366 


000 






063367 


045 


116 


045 


063373 


101 


122 


105 


063375 


103 


105 


111 


063400 


126 


105 


104 


063403 


040 


120 


101 


063406 


103 


113 


105 



CNTR05; .ASCIZ /UNrfAPACKETS RECEIVED WITH ERROR :*S13*Z5/ 



CNTR06j .ASCIZ /rfNrfADATA BYTES RECEIVED:*S16*T/ 



CNTR07: , ASCIZ /*N*AMULTICAST DATA flYTES RECEIVEDstfS6*T/ 



CNTR06: , ASCIZ /*N*ARECEIVEU PACKETS LOST -INTERNAL :*S10tfZ5/ 



N6 
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SEQ 78 



063411 


124 


123 


040 


063414 


114 


117 


123 


063417 


124 


055 


111 


063422 


116 


124 


105 


063425 


122 


116 


101 


063430 


114 


072 


045 


063433 


123 


061 


060 


063436 


045 


132 


065 


063441 


000 






2606 063442 


045 


116 


045 


063445 


101 


122 


105 


065450 


103 


105 


111 


063453 


126 


105 


104 


063456 


040 


120 


101 


063461 


103 


113 


105 


063464 


124 


123 


040 


063467 


114 


117 


123 


063472 


124 


040 


055 


063475 


114 


117 


103 


063500 


101 


114 


072 


063503 


045 


123 


061 


063506 


062 


045 


132 


063511 


065 


000 




2607 063513 


045 


116 


045 


063516 


101 


120 


101 


063521 


103 


113 


105 


063524 


124 


123 


C JO 


063527 


124 


122 


101 


063532 


116 


123 


115 


063535 


111 


124 


124 


063540 


105 


104 


07^ 


063543 


045 


123 


061 


063546 


066 


045 


124 


063551 


000 






2608 063552 


045 


116 


045 


063555 


101 


115 


125 


063560 


114 


124 


111 


063563 


103 


101 


123 


063566 


124 


040 


120 


063571 


101 


103 


113 


063574 


105 


124 


123 


063577 


040 


124 


122 


063602 


101 


116 


123 


063605 


115 


111 


124 


063610 


124 


105 


104 


063613 


072 


045 


123 


063616 


066 


045 


124 


063621 


000 






2609 063622 


045 


116 


045 


063625 


101 


120 


101 


063630 


103 


113 


105 


063633 


124 


123 


040 


063636 


124 


122 


101 


063641 


116 


123 


115 


063644 


111 


124 


124 


06364 7 


105 


104 


040 


063652 


063 


053 


040 



CNTR09: .ASCIZ /rfKWARECEIVED PACKETS LOST -LOCAL :*S12*Z5/ 



CNTR10; .ASCIZ /rfNrfAPACKETS TRANSMITTED:*S16tfT/ 



CNTR11: , ASCIZ /tfNtfAMULTICAST PACKETS TRANSMITTED :*S6*T/ 



CNTR12; , ASCIZ /*N*APACKETS TRANSMITTED 3* TRYS:*S8*T/ 



B7 



CZUACBO DEIAW NI EXERCISER DIAG MACRO M1200 
GLOBAL TEXT SECTION 
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SEQ 79 



2610 



2611 



2612 



2613 



2614 



063655 
065660 
063663 
06366C 
063670 
063673 
063676 
063701 
G63704 
063707 
063712 
063715 
063720 
063723 
063726 
063731 
063734 
063735 
063740 
063743 
063746 
063751 
063754 
063757 
063762 
063765 
063770 
063771 
063774 
063777 
064002 
064005 
064010 
064013 
0640J.6 
064021 
064024 
064027 
064032 
064033 
064036 
064041 
064044 
064047 
064052 
064055 
064060 
064063 
064066 
064071 
064074 
064077 
064101 
064104 
064107 
064112 
064115 



124 
123 
123 
124 
045 
101 
103 
124 
124 
116 
111 
105 
062 
122 
072 
071 
000 
045 
101 
103 
124 
104 
106 
105 
045 
071 
000 
045 
101 
124 
102 
105 
124 
116 
111 
105 
045 
063 
000 
045 
101 
114 
103 
124 
131 
123 
122 
123 
124 
104 
123 
124 
045 
101 
101 
115 
040 



122 
072 
070 
000 
116 
120 
113 
.123 
122 
123 
124 
104 
040 
131 
045 
045 

116 

120 
113 
123 
105 
105 
104 
123 
045 

116 
104 
101 
131 
123 
122 
123 
124 
104 
123 
045 

116 
115 
124 
101 
040 
124 
040 
101 
115 
124 
072 
070 
000 
116 
124 
116 
111 
120 



131 
045 
045 

045 
101 
105 
040 
101 
115 
124 
040 
124 
123 
123 
124 

045 
101 
105 
040 
106 
122 
072 
061 
124 

045 
101 
040 
124 
040 
101 
115 
124 
072 
061 
124 

045 
125 
111 
123 
102 
105 
124 
)16 
111 
105 
045 
045 

045 
122 

123 
124 

101 



CNTR13: .ASCIZ /*N*APACKETS TRANSMITTED 2 TRYS:*S9*T/ 



CNTR14; , ASCIZ /*N*APACKETS 0EFTEREDt*Sl9#T/ 



CNTR15: , ASCIZ /*N*ADATA BYTES TRANSMITlEDi*Sl3*T/ 



CNTRl6t .ASCIZ /*N*AMULUCAST BYTES TRANSMITTED 1*58^/ 



CHTR17} .ASCU /«N*ATRANSMIT PACKETS AB0RT&O»BlTHAPt«S8*B6/ 



C2UACB0 DEUNA NI EXERCISER OIAG MACRO M1200 
GLOBAL TEXT SECTION 



C7 
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SEQ 80 



064120 


103 


113 


105 


064123 


124 


123 


040 


064126 


101 


102 


117 


064131 


122 


124 


105 


064134 


104 


055 


102 


06413/ 


111 


124 


115 


064142 


101 


120 


072 


064145 


045 


123 


070 


064150 


045 


102 


066 


064153 


000 






261.5 064154 


045 


116 


045 


064157 


101 


124 


122 


064162 


101 


116 


123 


064165 


115 


111 


124 


064170 


040 


120 


101 


064173 


103 


113 


105 


064176 


124 


123 


040 


064201 


101 


102 


117 


064204 


122 


124 


105 


064207 


104 


072 


045 


064212 


123 


061 


066 


064215 


045 


132 


065 


064220 


000 






2616 064221 


045 


116 


045 


064224 


101 


130 


1-.5 


064227 


111 


124 


040 


064232 


103 


117 


114 


064235 


114 


111 


123 


064240 


111 


117 


116 


064243 


040 


103 


110 


064246 


105 


103 


113 


064251 


040 


106 


101 


064254 


111 


114 


125 


064257 


122 


105 


C72 


064262 


045 


123 


061 


064265 


CS2 


045 


132 


064270 


065 


000 




2617 








2616 








2619 








2620 








2621 








2622 064272 


125 


116 


101 


064275 


040 


120 


117 


064300 


122 


124 


040 


064303 


103 


117 


115 


064306 


115 


101 


116 


064311 


104 


040 


105 


064314 


122 


122 


117 


064317 


122 


000 




2623 064321 


125 


116 


101 


064324 


040 


106 


101 


064327 


124 


101 


114 


064332 


040 


105 


122 


064 335 


122 


117 


122 


064340 


000 






£624 064341 


135 


116 


105 



CNTR18} ,ASCIZ /*N*ATRANSMIT PACKETS ABORTED i*S16*Z5/ 



CNTR19: ♦ASCIZ /HhWAXMIT COLLISION CHECK FAILURE ;*S 12*25/ 



PRROR MESSAGES TOR DEUNA DRIVER 



EMSGOlj .ASCI2 /UNA PORT COMMANO ERROR/ 



EMSG02: ♦ASCIZ /UNA FATAL ERROR/ 



EMSGQSi lASCIZ /UNEXPLAINED UNA INTERRUPT/ 



CZUACBO OEUNA NI EXERCISER DIAG MACRO M1200 
GLOBAL TEXT SECTION 



D7 
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SEQ 61 



064344 


130 


120 


114 


064347 


101 


111 


116 


064352 


:os 


104 


040 


064355 


125 


116 


101 


064360 


040 


111 


116 


064363 


124 


105 


122 


064366 


122 


125 


120 


064371 


124 


000 




2625 064373 


125 


116 


113 


064376 


116 


117 


127 


064401 


116 


040 


125 


064404 


116 


101 


040 


064407 


105 


122 


122 


064412 


117 


122 


000 


2626 064415 


125 


1.16 


101 


064420 


040 


127 


117 


064423 


116 


047 


124 


064426 


040 


122 


105 


064431 


101 


104 


040 


064434 


120 


103 


102 


064437 


040 


101 


104 


064442 


104 


122 


105 


064445 


123 


123 


000 


2627 064450 


125 


116 


101 


064453 


102 


114 


105 


064456 


040 


124 


117 


064461 


040 


122 


105 


064464 


101 


104 


040 


064467 


120 


110 


131 


064472 


123 


111 


103 


064475 


101 


114 


040 


064500 


101 


104 


104 


064503 


122 


105 


123 


064506 


123 


000 




2628 064510 


125 


116 


101 


064513 


040 


127 


111 


064516 


114 


114 


040 


064521 


116 


117 


124 


064524 


040 


107 


117 


064527 


040 


111 


116 


064532 


124 


117 


040 


064535 


122 


125 


116 


064540 


116 


111 


116 


064543 


107 


040 


123 


064546 


124 


101 


124 


064551 


105 


000 




2629 064553 


124 


111 


115 


064556 


105 


117 


125 


064561 


124 


041 


055 


064564 


055 


124 


122 


064567 


101 


116 


123 


064572 


115 


111 


124 


064575 


040 


106 


114 


064600 


101 


107 


040 


064603 


116 


11' 


124 


064606 


040 


123 


105 


064611 


124 


000 





EMSG04: .ASCIZ /UNKNOWN UNA ERROR/ 



EMSG05} .ASCIZ /UNA WON'T READ PCB ADDRESS/ 



EMSG06 5 . ASCIZ /UNABLE TO READ PHYSICAL ADDRESS/ 



EMSG07j , ASCIZ /UNA WILL NOT GO INTO RUNNING STATE/ 



EMSG08: , ASCIZ /TIMEOUT! -•TRANSMIT FLAG NOT SET/ 



E7 
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SEQ 82 



2650 



2631 



2632 



2633 



2634 



064613 
064616 
064621 
064624 
064627 
064632 
064635 
064640 
064643 
064646 
064651 
064654 
064656 
064661 
064664 
064667 
064672 
064675 
064700 
064703 
064706 
064711 
064714 
064716 
064721 
064724 
064727 
064732 
064735 
064740 
064743 
064746 
064751 
064754 
064755 
064760 
064763 
064766 
064771 
064 774 
064777 
065O02 
065005 
065010 
065013 
065016 
065021 
065024 
065027 
065031 
065034 
065037 
065042 
065045 
065050 
065053 
065056 



105 
117 
104 
111 
040 
101 
115 
040 
115 
103 
115 
104 

116 
111 
122 
107 
117 
113 
120 
107 
122 
122 
122 
105 
105 
111 
040 
117 
105 
111 
040 
122 
000 
115 
123 
105 
111 
040 
117 
111 
106 
040 
130 
120 
113 
040 
116 
110 
104 
040 
104 
117 
123 
040 
117 
122 



122 
122 
125 
116 
124 
116 
111 
120 
104 
117 
101 
000 
122 
123 
124 
111 
040 
117 
105 
111 
040 
122 
000 
105 
ill 
040 
116 
102 
113 
105 
116 
105 
117 

105 
101 
040 
132 
124 
040 
107 
117 
115 
056 
101 
105 
114 
107 
000 
116 
104 
040 
124 
105 
106 
115 
105 



122 
040 
122 
107 
122 
123 
124 
104 
040 

115 

116 

101 
115 
040 
116 
102 
113 
105 
116 
105 
117 

103 
126 
122 
107 
117 
113 
120 
107 
122 
122 

123 
107 
123 
105 
117 
102 
040 
122 
101 
040 
103 
124 
105 
124 

111 
111 
116 
040 
124 
122 
040 
123 



EMSG09: .ASCIZ /ERROR DURING TRANSMIT PDMD COMMAND/ 



EMSGlOi .ASCIZ /TRANSMIT RING BOOKKEEPING ERROR/ 



EMSG11: .ASCIZ /RECEIVE RING BOOKKEEPING ERROR/ 



EMSG14; , ASCIZ /MESSAGE SIZE TOO BIG FOR MAX. PACKET LENGTH/ 



EMSG15: .ASCIZ /DNI DID NOT S^T FROM RESET/ 



F7 
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SEQ 83 



065061 


105 


124 


000 


2635 065064 


125 


116 


101 


065067 


040 


127 


111 


065072 


114 


114 


040 


065075 


116 


117 


124 


065100 


040 


122 


105 


065103 


101 


104 


040 


065106 


104 


105 


123 


065111 


103 


122 


111 


065114 


120 


124 


117 


065117 


122 


040 


122 


065122 


111 


116 


107 


065125 


123 


000 




2636 065127 


103 


101 


116 


065132 


047 


124 


040 


065135 


107 


105 


124 


065140 


040 


111 


116 


065143 


111 


124 


111 


065146 


101 


114 


040 


065151 


123 


124 


101 


065154 


124 


125 


123 


065157 


040 


111 


116 


065162 


106 


117 


040 


065165 


106 


122 


117 


065170 


115 


040 


125 


065173 


116 


101 


000 


2637 065176 


115 


105 


123 


065201 


123 


101 


107 


065204 


105 


040 


104 


065207 


101 


124 


101 


065212 


040 


103 


117 


065215 


115 


120 


101 


065220 


122 


111 


123 


065223 


117 


116 


040 


065226 


105 


122 


122 


065231 


117 


122 


000 


2638 065234 


124 


117 


124 


065237 


101 


114 


040 


065242 


104 


101 


124 


065245 


101 


040 


103 


065250 


117 


115 


120 


065253 


101 


122 


105 


065256 


040 


105 


122 


065261 


122 


117 


122 


065264 


123 


000 




2639 065266 


045 


116 


045 


065271 


101 


116 


117 


065274 


040 


122 


105 


065277 


123 


120 


117 


065302 


116 


123 


105 


065305 


040 


106 


122 


065310 


117 


115 


040 


065313 


116 


117 


104 


065316 


105 


056 


000 


2640 065321 


105 


122 


122 


065324 


117 


122 


040 


065327 


127 


110 


111 



EMSGt6j .ASCIZ /UNA WILL NOT READ DESCRIPTOR RINGS/ 



EMSG18? .ASCIZ /CAN'T GET INITIAL STATUS INFO FROM UNA/ 



EMSG19; .ASCIZ /MESSAGE DATA COMPARISON ERROR/ 



EMSG20; .ASCIZ /TOTAL DATA COMPARE ERRORS/ 



EMSG22: , ASCIZ /*N*ANO RESPONSE FROM NODE./ 



EMSG23: .ASCIZ /ERROR WHILE ATTEMPTING TO WRITE MODE/ 



g 



G7 



fl8EWy» 


y^ERCISER 


! DIAG 


MACRO 1 


0653s32 


114 


105 


040 


065335 


101 


124 


124 


065340 


105 


115 


120 


065343 


124 


111 


116 


065346 


107 


040 


124 


065351 


117 


040 


127 


065354 


122 


111 


124 


065357 


105 


040 


115 


065362 


117 


104 


105 


065365 


000 






2641 065366 


124 


122 


101 


065371 


116 


123 


115 


065374 


111 


124 


040 


065377 


105 


122 


122 


065402 


117 


122 


054 


065405 


040 


101 


114 


065410 


114 


040 


120 


065413 


101 


103 


113 


065416 


105 


124 


123 


065421 


040 


116 


117 


065424 


124 


040 


124 


065427 


122 


101 


116 


065432 


123 


115 


111 


065435 


124 


124 


105 


065440 


104 


000 




2642 065442 


105 


122 


122 


065445 


117 


122 


040 


065450 


127 


110 


111 


065453 


114 


105 


040 


065456 


101 


124 


124 


065461 


105 


115 


120 


065464 


124 


111 


116 


065467 


107 


040 


I'M 


0654 72 


117 


040 


127 


065475 


122 


111 


124 


065500 


105 


040 


115 


065503 


125 


114 


12', 


065506 


111 


103 


101 


065511 


123 


124 


040 


065514 


101 


104 


104 


065517 


122 


105 


123 


065522 


123 


040 


114 


065525 


111 


123 


124 


065530 


000 






2643 065531 


105 


122 


122 


065534 


117 


122 


040 


065537 


127 


110 


111 


065542 


114 


105 


040 


065545 


101 


124 


124 


065550 


105 


115 


120 


065553 


124 


111 


116 


065556 


107 


040 


120 


065561 


117 


122 


124 


065564 


040 


106 


125 


065567 


116 


103 


124 


065572 


111 


117 


116 


065575 


000 







22-MAR-84 10;53 PAGE 9-34 



SEQ 84 



EMSG24; .ASCIZ /TRANSMIT ERROR, ALL PACKETS NOT TRANSMITTED/ 



EMSG25; ,ASCI? /ERROR WHILE ATTEMPTING TO WRITE MULTICAST ADDRESS LIST/ 



EMSG30: ♦ASCIZ /ERROR WHILE ATTEMPTING PORT FUNCTION/ 



-17 
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SEQ 85 



2644 065576 


125 


116 


101 


065601 


102 


114 


105 


065604 


040 


124 


117 


^5607 


040 


122 


105 


5612 


101 


104 


040 


. o615 


111 


116 


124 


065620 


105 


122 


116 


065623 


101 


114 


040 


065626 


103 


117 


125 


065631 


116 


124 


105 


065634 


122 


123 


000 


2645 065637 


045 


116 


045 


065642 


101 


111 


114 


065645 


114 


105 


107 


065650 


101 


114 


040 


065653 


124 


101 


122 


065656 


107 


105 


124 


065661 


057 


101 


123 


C65664 


123 


111 


123 


065667 


124 


CKO 


120 


065672 


101 


111 


122 


065675 


040 


111 


116 


065700 


040 


116 


117 


065703 


104 


105 


040 


065706 


124 


101 


102 


065711 


114 


105 


000 


2646 065714 


124 


111 


115 


065717 


105 


117 


125 


065722 


124 


040 


105 


065725 


122 


122 


117 


065730 


122 


000 




2647 065732 


015 


012 


124 


065735 


111 


115 


105 


065740 


117 


125 


124 


065743 


040 


117 


103 


065746 


103 


125 


122 


065751 


105 


104 


040 


065754 


102 


105 


106 


065757 


117 


122 


105 


065762 


040 


114 


117 


065765 


117 


120 


102 


065770 


101 


103 


113 


065773 


0*0 


122 


105 


065776 


120 


114 


131 


066001 


000 






2648 066002 


045 


101 


106 


066005 


101 


111 


114 


066010 


111 


116 


107 


066013 


040 


116 


117 


066016 


104 


105 


040 


066021 


101 


104 


104 


066024 


122 


105 


123 


066027 


123 


072 


040 


066032 


045 


124 


045 


066035 


116 


000 




2649 066037 


045 


101 


104 


066042 


101 


124 


101 



EMSG31i .ASCIZ /UNABLE TO READ INTERNAL COUNTERS/ 



£MSG32{ .ASCIZ \*N*AILLEGAL TARGET/ASSIST PAIR IN NODE TABLEN 



EMSG33} , ASCIZ /TIMEOUT ERROR/ 



EMSG34: .ASCIZ <15><12>/TIME0UT OCCUREO BEFORE LOOPBACK REPLY/ 



EMSG35? .ASCIZ /*AF AILING NODE ADDRESS: *T*N/ 



EMSG36: .ASCIZ /tfADATA PATTERN} *T*N/ 



CZUACBO DEUMA NI EXERCISER DIAG MACRO M1200 22-MAR-84 10;53 
GLOBAL TEXT SECTION 
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SEQ 86 



066045 


040 


120 


101 


066050 


124 


124 


105 


066053 


122 


116 


072 


066056 


040 


045 


124 


066061 


045 


116 


000 


2650 066064 


045 


101 


106 


066067 


101 


111 


114 


066072 


111 


116 


107 


06607!? 


040 


124 


101 


066100 


122 


107 


105 


066103 


124 


040 


116 


066106 


117 


104 


105 


066111 


040 


101 


104 


066114 


104 


122 


105 


066U7 


123 


123 


072 


066122 


040 


045 


124 


066125 


045 


116 


000 


2651 066130 


045 


101 


106 


066133 


101 


111 


114 


066136 


111 


116 


107 


066141 


040 


101 


123 


066144 


123 


111 


123 


066147 


124 


040 


116 


066152 


117 


104 


105 


066155 


040 


101 


104 


066160 


104 


122 


105 


066163 


123 


123 


072 


066166 


040 


045 


124 


066171 


045 


U6 


000 


2652 066174 


015 


012 


124 


066177 


111 


115 


105 


066202 


117 


125 


124 


066205 


040 


117 


103 


066210 


103 


125 


122 


066213 


105 


104 


040 


066216 


0'«5 


040 


114 


066221 


? X ? 


117 


120 


066224 


V.*' 


115 


105 


066227 


1?3 


123 


101 


066232 


107 


105 


040 


066235 


1-24 


131 


120 


066240 


105 


040 


055 


066243 


040 


122 


105 


006246 


103 


105 


111 


066251 


126 


105 


040 


066254 


101 


123 


123 


066257 


111 


123 


124 


066262 


OOO 






2653 066263 


015 


012 


124 


066266 


111 


115 


105 


066271 


117 


125 


124 


066274 


040 


117 


103 


066277 


103 


125 


122 


066302 


105 


104 


040 


066305 


055 


040 


114 


066310 


117 


117 


120 


066313 


040 


115 


105 



EMSG37: ,ASCI2 /KAFAILING TARGET NODE ADDRESS} *T*N/ 



EMSG38: .ASCIZ /*AFAILING ASSIST NODE ADDRESS* *T«H/ 



EMSG40: .ASCIZ <15><12>/TIME0UT OCCURED - LOOP MESSAGE TYPE - RECEIVE ASSIST/ 



EMSG41; ♦ASCIZ <15>< 12>/TIME0UT OCCURED - LOOP MESSAGE TYPE - TRANSMIT ASSIST/ 



CZUACBO DEUNA NI EXERCISER DIAG MACRO M1200 
GLOBAL TEXT SECTION 



J7 
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SEQ 87 



066316 


123 


123 


101 


066321 


107 


105 


040 


066324 


124 


1.31 


120 


066327 


105 


040 


055 


066332 


040 


124 


122 


066335 


101 


116 


123 


066340 


115 


111 


124 


066343 


040 


101 


123 


066346 


123 


111 


123 


066351 


124 


000 




2654 066353 


015 


012 


124 


066356 


111 


115 


105 


066361 


117 


125 


124 


066364 


040 


117 


103 


066367 


103 


125 


122 


066372 


105 


104 


040 


066375 


055 


040 


114 


066400 


117 


117 


120 


066403 


040 


115 


105 


066406 


123 


123 


101 


066411 


107 


105 


040 


066414 


124 


131 


120 


066417 


105 


040 


055 


066422 


040 


106 


125 


066425 


114 


114 


040 


066430 


101 


123 


123 


066433 


111 


123 


124 


066436 


000 






2655 








2656 








2657 066440 


045 


116 


045 


066443 


101 


040 


040 


066446 


116 


117 


104 


066451 


105 


040 


104 


066454 


105 


106 


101 


066457 


125 


114 


124 


066462 


040 


101 


104 


066465 


104 


122 


105 


066470 


123 


123 


072 


066473 


040 


045 


124 


066476 


000 






2658 066477 


045 


116 


045 


066502 


123 


070 


045 


066505 


101 


122 


105 


066510 


103 


105 


111 


066513 


120 


124 


040 


066516 


116 


125 


115 


066521 


102 


105 


122 


066524 


072 


040 


045 


066527 


117 


066 


000 


2659 066532 


045 


116 


at 5 


066535 


101 


040 


040 


066540 


040 


115 


101 


066543 


111 


116 


124 


066546 


105 


116 


101 


066551 


116 


103 


105 


066554 


040 


126 


105 



EMSG42: .ASCIZ <15><12>/TIME0UT OCCURED ■ LOOP MESSAGE TYPE - FULL ASSIST/ 



.EVEN 

SIMSGlt .ASCIZ /*N*A NODE DEFAULT ADDRESS: *T/ 



SIMSG2: .MSCIZ /*N*S8*ARECEIPT NUMBER: *Q6/ 



SIMSG3: .ASCIZ /*N*A MAINTENANCE VERSION: *Z2/ 



I<7 
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SEQ 80 





066557 


122 


123 


111 




066562 


117 


116 


072 




066565 


040 


045 


132 




066570 


062 


000 




2660 


066572 


045 


116 


045 




066575 


123 


061 


071 




066600 


045 


101 


105 




066603 


103 


117 


072 




066606 


040 


045 


132 




066611 


062 


OOO 




2661 


066613 


045 


116 


045 




066616 


123 


061 


064 




066621 


045 


101 


125 




066624 


123 


105 


122 




066627 


040 


105 


103 




066632 


117 


0/2 


040 




066635 


045 


132 


062 




066640 


000 






2662 


066641 


045 


116 


045 




066644 


123 


061 


064 




066647 


045 


101 


106 




066652 


125 


116 


103 




066655 


124 


111 


117 




066660 


116 


072 


0*0 




066663 


045 


117 


062 




066666 


000 






2663 


066667 


045 


116 


045 




066672 


123 


061 


066 




066675 


045 


101 


104 




066700 


105 


126 


111 




066703 


103 


105 


072 




066706 


040 


045 


117 




066711 


062 


000 




2664 










2665 










2666 


066714 


045 


116 


045 




066717 


1C-1 


120 


103 




066722 


040 


117 


106 




0€6725 


040 


103 


101 




066730 


114 


114 


111 




066733 


116 


107 


040 




066736 


122 


117 


125 




066741 


12* 


111 


116 




066744 


105 


040 


075 




066747 


040 


045 


117 




066752 


066 


000 




2667 










266S 


066754 


0*5 


116 


045 




066757 


101 


102 


131 




066762 


124 


105 


040 




066765 


116 


125 


115 




066770 


102 


105 


122 




066773 


072 


045 


104 




066776 


064 


0^5 


101 




067001 


050 


104 


051 




067004 


040 


105 


130 




067007 


120 


105 


103 



SIMSG4: , ASCIZ /*N*S19tfAEC0t *Z2/ 



SIMSG5$ .ASCIZ /*N*S14*AUSER ECO: *Z2/ 



SIMSG6: .ASCI2 /*NtfS14*AFUNCTI0N: *02/ 



SIMSG7; .ASCIZ /*N*S16*ADEVICE: *02/ 



.EVEN 

PCMSGii .ASCIZ /tfNKAPC OF CALLING ROUTINE - *06/ 



.EVEN 

CMPER1: .ASCIZ /HKWABYTE NUMBER :*D4*A(D) EXPECTED»*06*ACO) RECIEVED«*06*A(0:)/ 



C2UACB0 D£yNA^NI_EXERCISER DIAG MACRO M1200 



L.7 



:XT SECTION 
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SEQ 89 



2669 



2670 



2671 



2672 



067012 
067015 
067020 
067023 
067026 
067031 
067034 
067037 
067042 
067045 
067050 
067051 
067054 
067057 
067062 
067065 
067070 
067073 
067076 
067101 
06710** 
067107 
067112 
067U5 
067117 
067122 
067125 
067130 
067133 
067136 
067141 
067144 
067147 
067152 
067155 
067160 
067163 
067166 
C67171 
067174 
067177 
067202 
067205 
067210 
067213 
067215 
067220 
067223 
067226 
067231 
067234 
067236 
067241 
067244 
067247 
067252 
067255 



124 
075 
066 
050 
040 
103 
126 
075 
066 
050 
000 
045 
101 
124 
040 
123 
124 
105 
111 
115 
123 
105 
040 
064 
045 
101 
116 
110 
122 
122 
055 
131 
123 
130 
103 
104 
045 
045 
102 
105 
122 
105 
105 
040 
066 
045 
045 
045 
117 
072 
124 
04 S 
101 
040 
124 
117 
114 



105 
045 
045 
117 
122 
111 
105 
045 
045 
117 

116 

124 
101 
115 
115 
103 
123 
116 
105 
101 
040 
045 
000 
116 
114 
107 
040 
122 
040 
040 
124 
040 
120 
124 
072 
117 
101 
131 
123 
105 
111 
104 
045 
000 
116 
123 
101 
104 
040 
000 
116 
122 
116 
040 
115 
105 



104 
117 
101 
051 
105 
105 
104 
117 
101 
051 

045 
117 
114 
111 
101 
110 
040 
040 
123 
107 
075 
104 

045 

105 
124 
105 
117 
055 
102 
105 
105 
105 
105 
040 
066 
040 
124 
040 
103 
126 
072 
117 

062 
070 
116 
105 
045 

045 
130 
117 
103 
120 
124 



CMPER2: ,ASCIZ /*N*ATOTAL MISMATCHES IN MESSAGE « *04/ 



LGERMS: ,ASCIZ /KNUALENGTH ERROR -- BYTES EXPECTED: *06*A BYTES RECEIVED: *06/ 



SUMMS1: .ASCIZ /*N2tfS8*AN0DE : f*T/ 



SUMMS2: .ASCIZ /rfNrfARX NOT COMPLETE 



RX COMPLETE LENGTH ERRORS/ 



CZUACBO DEUNA NI EXERCISER DIAG MACRO M1200 
GLOBAL TEXT SECTION 
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SEQ 90 





067260 


105 


040 


040 




067263 


040 


040 


122 




067266 


130 


040 


103 




067271 


117 


115 


120 




067274 


114 


105 


124 




067277 


105 


040 


040 




067302 


040 


040 


114 




067305 


105 


116 


107 




067310 


124 


110 


040 




067313 


105 


122 


122 




067316 


Ii/' 


12i> 


123 




067321 


000 






2673 


067322 


045 


116 


045 




067325 


123 


066 


045 




067330 


132 


065 


045 




067333 


123 


061 


062 




067336 


045 


132 


065 




067341 


045 


123 


061 




067344 


060 


045 


132 




067347 


065 


000 




2674 


067351 


045 


116 


045 




067354 


101 


103 


117 




067357 


115 


120 


101 




067362 


122 


105 


040 




067365 


105 


122 


122 




067370 


117 


122 


123 




067373 


0*0 


040 


040 




067376 


040 


102 


131 




067401 


124 


105 


123 




067404 


040 


103 


117 




067407 


115 


120 


101 




067412 


122 


105 


104 




067415 


040 


040 


C40 




067420 


040 


102 


131 




067423 


124 


105 


u:3 




0*37426 


040 


130 


106 




067431 


105 


122 


000 


2675 


067434 


045 


116 


045 




067437 


123 


066 


045 




067442 


132 


065 


045 




067445 


123 


070 


045 




067450 


124 


000 




2676 


06745^ 


045 


123 


065 




067455 


045 


124 


000 


2677 










26 78 










2679 











SUMMS2: .ASCIZ /*N*S6*Z5*S12*Z5*S10*Z5/ 



SUMMS4: .ASCIZ /*N*ACOMPARE ERRORS BYTES COMPARED 



BYTES XFER/ 



SUMMS5: .ASCIZ /*N*S6*Z5*S8tfT/ 

SUMMS6: .ASCIZ /*S5*T/ 
.EVEN 



CZUACBO DEUNA NI EXERCISER DIAG MACRO M1200 
GLOBAL ERROR REPORT SECTION 
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SEQ 91 



2681 
2682 
2^3 
2684 
2685 
2686 
2687 
2688 
2689 
2690 

2691 
2692 



2693 
2694 



2695 
2696 

2697 

2698 
2699 
2700 
2701 



2702 



2703 
2704 



2705 
2706 

2707 



067460 
067460 
067460 
067466 
067466 
067472 
067476 
067502 
067504 
067506 
067512 
067512 
067514 
067514 
067514 

067516 
067516 
067516 
067520 
067524 
067526 
067532 
067532 
067536 
067542 
067546 
067550 
067552 
067556 
067556 
067560 
067564 
067570 
067572 
067574 
067600 
067602 
067602 
067602 

067604 
067604 
067604 
067604 
C6 7610 
067614 
067620 



013746 
012746 
012746 
010600 
104415 
062706 

104444 



104423 



010146 
013701 
006301 
062701 

012746 
012746 
012746 
010600 
104415 
062706 

0V1146 
012746 
012746 
010600 
104415 
062706 
012601 



104423 



012746 
012746 
012746 
010600 



.SBTTL GLOBAL ERROR REPORT SECTION 

j THE CLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 

i USED 3Y MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTS 

j (BASK) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 



012737 000020 003672 



050564 
066714 
000002 



000006 



BGNMSG ERR1 

MOV 
PRINTX 



OCEXIT.CFLAG 
OPCMSG.PCCALL 



ERR1: : 



DOCLN 



ENUMSG 



002370 

003262 

002322 
066002 
000002 

000006 



066037 
000002 



000006 



BGNMSG ERR2 

MOV 
MOV 
ASL 
ADD 



Rl.-CSP) 

pmPE.Ri 

Rl 
0MSGTAB.R1 



L 10002s 



ERR2:: 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

TRAP 



TRAP 



PRINTX 0EMSG35 , OS TRBUF 



PRINTX 0EMSG36.CR1) 



ENDMSG 



MOV 



(SP)*,R1 



002322 
066C64 
000002 



BGNMSG ERR3 

PRINTX OEMSG37.0STRBUF 



v 93:r 



TRAP 



MOV 
MOV 
MOV 

MOV 



PCCALL.-(SP) 

OPCMSG.-(SP) 

02,-CSP) 

SP.RO 

CJPNTX 

06, SP 

C$DCLN 



C*MSG 



MOV 


*STRBUF,-(SP) 


MOV 


OEMSG35.-CSP) 


MOV 


02.-CSP) 


MOV 


SP.RO 


TRAP 


C*PNTX 


ADD 


06, SP 


MOV 


(Rl).-(SP) 


MOV 


OtMSG36,-(SP) 


MOV 


02,-CSP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


06. SP 


L 10003: 





C$MSG 



OSTRBUF 
OEM5G37 
02,-CSP) 
SP.RO 



-CSP) 

-CSP) 



CZUAC80 DEWA NI EXERCISER DIAG MACRO M12Q0 
GLOBAL ERROR REPORT SECTION 



B8 



2708 



2709 



2710 
2712 
2713 
2714 
2715 
2716 
2717 
2716 
2719 
2720 
2721 
2722 
2723 
2724 
2726 
2727 



067622 
067624 
067630 
067630 
0676S4 
067640 
067644 
067646 
067650 
067654 
067654 
067654 



104415 
062706 

012746 
012746 
012746 
010600 
104415 
062706 



104423 



000006 

002344 
066130 
000002 



000006 
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PRINTX 0EMSG38.OSTRBU1 



ENOMSG 



L10004: 



SEQ 92 



TRAP CIPNTX 

ADD *6,SP 

MOV ♦STRSUl.-CSP) 

MOV ♦€MSG38,-(SP) 

MOV •S.-CSP) 

MOV SP.RO 

TRAP CIPNTX 

ADD 06 t SP 



TRAP CIMSG 



THESE MESSAGE AREAS ARE USED TO OUTPUT SUPPLEMENTARY INFORMATION 
AFTER AN ERROR CALL, THEY ARE INVOKEO BY APPENOING THE NAME 
OF THE AREA TO AN ERROR CALLi ERRXXX 1 .ERRORMES SAGE .ARE ANAME. 
THE CORRESPONDING MESSAGE AREA IS SET UP IN THIS SECTION: 

BGWSG AREANAME 

CCOOE] 

ENOMSG 

THE AREAS IN THIS SECTION ARE FOR MESSAGES USED IN MORE THAN ONE 
TEST. USE THE PRINTS (PRINT BASIC) AND PRINTX (PRINT EXTENDED) 
MACROS . 



C8 
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.SBTTL GLOBAL SUBROUTINES SECTION 



SEQ 93 



2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2736 
2739 
2741 
2742 
2743 
2744 
2746 
2747 
2748 
2750 
.?751 
2752 
2754 
2755 
2756 
2756 
2759 
2760 
2761 
2763 
2764 
2765 
2767 
2766 
2769 
2771 
2772 
2773 
2775 
2776 
2777 
2778 
2780 
2761 
2782 
2784 
2785 
2786 
2788 
278* 
2790 
2792 
2793 
2794 
2795 
2796 
2798 
2799 



* ♦ 



THE GLOBAL SPROUT INES SECTION CONTAINS THE SUBROUTINES 
THAT ARE USED IN MORE THAN ONE TEST. 



+ ♦ 



FUNCTIONAL DESCRIPTION: 
SUBROUTINE TO,.., 



tftflfi 



COMPLETE THE "SieROUTINC TO " STATEMENT WITH A FUNCTIONAL 

DESCRIPTION OF THIS SUBROUTINE, 

INPUTS { 



LIST THE INPUT DATA THAT ARE EXPLICITLY PASSED TO THIS SUBROUTINE. 



IMPLICIT INPUTS} 



t******* * **********^*********^********************** ^ ***** 



l*%*++ 



LIST THE INPUT DATA THAT ARE IMPLICITLY USED BY THIS SUBROUTINE j 
FOR EXAMPLE, DATA READ FROM COKMN AREAS. 



OUTPUTS: 



LIST THE OUTPUT OATA THAT APE EXPLICITLY GIVEN BY THIS SUBROUTINE 



IMPLICIT OUTPUTS: 

LIST THE OUTPUT DATA THAT ARE IMPLICITLY GIVEN BY THIS SUBROUTIKC; 
FOR EXAMPLE. DATA STORED IN COMMON AREAS. 

SUBORDINATE ROUTINES USED: 

LIST THE SUBROUTINES CALLED BY THIS SUBROUTINE. 

FACTIONAL SIDE EFFECTS: 

DESCRIBE ANY EFFECTS THIS SUBROUTINE MAY KAVE UPON OTHER 
MOOULES OF THE DIAGNOSTIC PROGRAM, AN EXAMPLE OF THIS IS 
THE SUBROUTINE INHIBITS ALL INTERRUPTS WITH PRIORITY 7. 

l CALLING SEQUENCE i 
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SEQ 94 



2800 
2802 
2803 
2804 
2805 
2806 
2807 
2809 
2810 
2812 
2813 
2814 
2815 
2817 
281^ 
2820 
2821 
2823 
2824 
2825 
2826 
2827 
2828 
J6?9 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 



067656 
067656 
067660 
067662 
067664 
067666 
067670 
067672 
067674 
067676 
Q677QQ 



012122 
012112 
006312 
006312 
006312 
006312 
006322 
012122 
012122 
QQQ207 



t GIVE THE EXACT CALLING SEQUENCE USED TO ACCESS THIS SUBROUTINE. 

I FOR EXAMPLE i MOV COUNT, Rl ,MOVE INPUT TO Rl 

i JSR PC.ROJTINE » GO TO ROUTINE 

* BCS ERROR j CARRY SET IF ROUTINE HAD ERROR 

i -- 

x INSERT THE COOE FOR THIS SUBROUTINE. THE NAME OF THE SUBROUTINE SHOULD 

x BE DEFINED WITH A DOUBLE-COLON (tt)| THIS WILL MAKE THE SUBROUTINE GLOBAL. 

x BEGIN EACH SUBROUTINE AT THE TOP OF A NEW PAGE. 

.SBTTL CLKSET CLOCK SETUP SUBROUTINE 

FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE SETS UP THE CLOCK INFORMATION TABLE FOLLOWING 
A "CLOCK" CALL EXECUTED IN THE INITIALIZATION COOE. BUT SINCE 
THE "CLOCK" CALL SAYS NOTHING A80UT AN LSI-11'S CLOCK, THE 
ROUTINE IS ONLY USED IF A LINE OR P-CLOCK IS FOUND. 

INPUTS - Rl - POINTS TO SUPERVISOR SPACE WHERE CLOCK INFO WAS RETURNED 
R2 - POINTS TO "CLK" TABLE WHERE CLOCK INFO WILL. BE KEPT 

OUTPUTS - "CLKCSR" GETS LOADED WITH THE CLOCK' CSR ADDRESS 

"CLKBR" GETS LOADED WITH THE CLOCK'S INTERRUPT LEVEL 
"CLKVEC" GETS LOADED WITH THE CLOCK'S INTERRUPT VECTGR 
"CLKHZ" GETS LOADED WITH THE LINE FREQ. (IN HERTZ) 



CALLING PROCEDURE: 
JSR 



PC, CLKSET 



CLKSET { 



MOV (Rl)*,rR2)» 

MOV CRl)f,(R2) 

ASL (R2) 

ASL (R2) 

ASL (R2) 

ASL (R2) 

ASL CR2)* 

MOV (R1)*.(R2)* 

MOV (Rl)*,(R2)* 

RT§ PC 



\ CALL CLOCK SETl/P WITH Rl AND R2 SETUP 



j LOAD CLOCK'S CSR ADOR. INTO "CLKCSR" 

I LOAD CLOCK'S INTR. LEVEL INTO "CLKBR" 

1 ADJUST THE INTR. LEVEL FOR LOADING 
I INTO THE PSW WITH A "SETVEC" CALL 



I LOAD CLOCK'S INTR. VECTOR INTO "CLKVEC" 
\ LOAD CLOCK'S FREQ, INTO "CLKHZ" 



E8 
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SEQ 95 



2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2866 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2376 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 

2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 



067702 
067702 

067702 
067706 
067712 
067714 
067722 
067726 
067734 
067736 
067742 

067746 
067752 
067754 
067760 
067764 
067766 
067772 
067776 
070000 
070006 
070010 
070014 



005077 
005337 
001015 
013737 
005237 
022737 
001004 
005237 
005037 

005737 
001402 
005337 
005737 
001402 
005337 
005737 
001406 
023737 
001002 
OOf337 
013777 



.SBTTL CLKINT CLOCK INTERRUPT SERVIDE ROUTINE 

. .. * 

FUNCTIONAL DESCRIPTION: 

THIS IS THE CLOCK INTERRUPT SERVICE ROUTINE WHICH TAKES CARE 
OF KEEPING THE "TIME -SINCE -START" AND COUNTING DOUN ANY OF THE. 
"tVENT" TIMERS. THE TIMERS ARE USED TO TIME COMPLETION OF 
DEVICE REQUESTS, THE "TIME-SINCE-START" IS USED TO 8E LOGGED 
WITH EACH ENTRY INTO THE EVENT LOG. 

IMPLICIT INPUTS - TINTCK - THE CURRENT NO. OF TICKS LEFT TO BE COUNTED UNTIL 

A SECONO HAS BEEN COUNTED OFF 
CLKHZ - THE NO. OF TICKS IN A SECOND, DETERMINED BY THE 

SYS. LINE FREQ. 
TIMMIN £ TIMSEC - CURRENT VALUE OF "TIME-SINCE-START" IN 

MINUSES AND SECONOS 
TIMER 1,2 AND S - CURRENT VALUES OF "EVENT TIMERS" 

IMPLICIT OUTPUTS - NEW VALUE OF EVENT TIMER "1" € "2" DECREMENTED BY 1 TICK 

IF IT WAS NON-ZERO 
NEW VALUE OF EVENT TIMER "S" DECREMENTED BY 1 SECOND IF IT 
WAS NON-ZERO 



SIDE EFFECTS - 



THE CLOCK IS DISABLED UPON ENTRY AND REENABLED WHEN LEAVING 



CALLING PROCEDURE - THIS ROUTINE IS CALLED WHEN THE CLODK INTERRUPTS THRU 

"CLKVEC". THE AODRESS OF THIS ROUTINc WAS LOADED 
INTO THE CLOCK'S INTERRUPT VECTOR WITH A "SETVEC" CALL 



- - f 



113766 
003712 

003702 003712 

003710 

000C74 003710 

003706 
003710 

003714 

003714 
003716 

003716 
003720 



003702 

003720 
003704 



003712 
113652 



1*: 
2»: 
3*: 

4$: 



BGNSRV CLKINT 



CLR SCLKCSR 

DEC TIMTCK 

BNE II 

MOV CLKHZ, TIMTCK 

IUC TIMSEC 

CMP 060., TIMSEC 

BHE 1$ 

INC TIMMIN 

CLR TIMSEC 

TST TIMER1 

BEQ 21 

DEC TIMER1 

TST TIMER2 

BEQ 3$ 

DEC TIMER2 

TST TIMERS 

BEQ 41 

CMP CLKHZ, TIMTCK 

BNE 4 $ 

DEC TIMERS 

MOV CLKEN, SCLKCSR 



CLKINT- 

DISABLE THE CLOCK FROM INTERRUPTING 

DECREMENT THE NO. OF TICKS/SEC 

GO CHECK TIMERS 

RESET THE NO. OF TICKS/SEC. 

INC. NO OF SECS-SINCE -START 

SEE IF WE'VE COUNTED 60 SEC . S YET 

IF NOT, GO CHECK TIMERS 

ELSE. INC. MINUTES-SINCE -START 

ANO RESTART SECONO COUNTER 

SEE IF TIMER1 TIMING ANYTHING 

IF-O, NO, CHECK NEXT TIMER 

ELSE DEC9EMENT THE TIMER VALUE (BY 1 TICK) 
SEE IF TIMERS TIMING ANYTHING 

IF-O. NO. CHECK NEXT TIMER 

ELSE DECREMENT TIMER VALUE CBY 1 TICK) 
SEE IF TIMERS TIMING ANYTHING 

IF-O. NOTHING BE TIMED, LEAVE 
SEE IF A SECONO HAS BEEN COUNTED OFF 

GR IF NO 

ELSE, DECREMENT TIMER VALUE (BY 1 SEC.) 
REENABLE THE CLOCK TO INTERRUPT 



CZUACBO DEUNA NI I 
CLKINT CLOCK INTI 



F8 



;XERCISER DIA( 
'RRUPT SERVlOi 



2914 



2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2954 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 



070022 
070022 
070022 



070024 
070026 
070030 

070032 
070036 

070040 

070042 

070044 
070046 
070050 

070052 

070054 

070056 
070060 
070062 
070064 



000002 
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ROUTINE 

ENDSRV 



SEQ 96 



010346 
010246 
010146 

010437 050564 
012401 

060701 

010446 

020506 
103401 
000000 

004711 

012604 

012601 
012602 
012603 
000204 



L 10005: 



RTI 



.SBTTL PREG14 PRESERVE REGISTERS 1 THROUGH 4 ACROSS SUBROUTINE CALLS 

***************** »*»*(.***M«*********************«***************U*«***#»**i* 

INPUTS: THE RELATIVE ADDRESS OF THE CALLED ROUTINE MUST FOLLOW THE 
CALL TO THIS ROUTINE (SEE CALLING SEQUENCE). 



OUTPUTS: 



-REGISTERS 1 THROUGH 4 ARE PRESERVED ACROSS THE CALLED RUUTINE. 
-A CHECK IS MADE TO ENSURE THE HARDWARE STACK HASN'T OVER-RUN 
THE PARAMETER STACK. 



CALLING SEQUENCE: 



THIS 15 BEST HANDLED BY THE "CALL" MACRO. TIE ACTUAL 
CALL IS: 

JSR R4.PREG14 

.WORD f SUBROUTINE NAME] -ANCHOR 



COMMENTS: 



THIS ROUTINE IS RE-ENTRANT AND RELOCATABLE. 
THIS ROUTINE IS DRS COMPATIBLE. 



SUBORDINATE ROUTINES CALLED: THE ROUTINE SPECIFIED IN THE CALL. 

************************* ********* * ***** *** 4 * * A******************************* 



PREG14? MOV 

MOV 
MOV 

MOV 
MOV 

ADD 

ANCHOR: MOV 

CMP 
BLO 
HALT 

1$: JSR 

MOV 

MOV 
MOV 
MOV 
RTS 



R3.CSP) 
R2.-CSP) 
Rl.-(SP) 

R4. PCCALL 
(R4)f,Rl 

PC.R1 

R4 t -CSP) 

R5.SP 
1* 

PC.(Rl) 
CSP)*,R4 

(SP)*,RL 

<SP)*,R2 

(SP)*,R3 
R4 



|R4 IS ALREADY ON THE R6 STACK. 
tPUSH R3. R2. Rl 



iGET THE RELATIVE ADDRESS OF THE CALLED 

iROUTINE. 

iMAKE II AN ABSOLUTE ADDRESS. 

j SAVE THE RETURN TO THE CALLING ROUTINE. 

I CHECK FOR STACK OVER -RUN. 

tHANDLE STACK OVER-RUN CONOIUON. 

jCALL THE SPECIFIED ROUTINE. 

I REST ORE THE RETURN TO THE CALLING ROUTINE. 



{RESTORE THE REGISTERS. 



iBACK TO THE CALLING ROUTINE. 



G8 
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SEQ 97 



2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2969 
2990 
2991 
2992 
2993 
2994 
29<J5 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 



070066 012703 000012 

070072 012704 003714 

070076 005002 

070100 010314 

070102 005737 050530 

070106 001011 

070110 005737 050522 

070114 001403 

070116 005037 050522 

070122 000410 

070124 005714 

070126 001365 

070130 000403 

070132 

070140 012702 177777 

070144 



.SBTTL WAIT WAIT FOR DEUNA INTERRUPT WITH TIMEOUT 



f * 



FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE WAITS FOR ONI INTERRUPTS FROM THE DEUNA 
OR REPORTS A TIMEOUT, IF A UNA INTERRUPT HAS OCCURED, 
THE SUBROUTINE ERROR IS CALLED TO HANDLE IT, 



INPUTS - 
OUTPUTS - 



SUCCESS OR FAILURE IS REPORTED VIA PI. 
NONE 

Pit SUCCESS/FAILURE 0-SUCCESS/-1-FAILURE 



CALLING SEQUENCE: 
CALL 
P$POP 



WAIT 



Hi 



2$ 



3$ 

51 

6* 



MOV 

MOV 

CLR 

MOV 

TST 

BNE 

TST 

8EQ 

CLR 

BR 

TST 

BNE 

BR 

CALL 

MOV 

RETURN 



#10, # «3 

♦TIMER! 

R2 

R3.CR4) 

ERRFLG 

3$ 

DNIFLG 

2$ 

DNIFLG 

6$ 

CR4) 

II 

5$ 

ERROR 

♦-1.R2 

R2 



WAIT 
PI 



R4 



i MOVE KO. OF COUNTS TO R3 

j AND TIMER TO BE USED TO R4 

l LOCAL STATUS PARAMETER 

;SET NUMBER Of TICKS. (GLOBAL) 

t CHECK IF ERROR OCCURED 

i BR IF YES 

I CHECK FOR DNi INTERRUPT 

I BR IF INTERRUPT RECEIVED 



lHAS TIMER EXPIRED? 

j BR IF NO TO WAIT FOR INTERRUPT 

iBR TO 51 

I CALL ERROR ROUTINE 

jINOICATE FAILURE 

j RETURN WITH SUCCESS/FAILURE INOICATION 



.SBTTL ERROR HANDLE UNA INTERRUPT ERRORS 



FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE CHECKS THE ERROR FLAGS SET BY 
WAISR THE INTERRUPT SERVICE ROUTINE AND PRINTS 
OUT THE APPRORIATE ERROR MESSSAGES, 



INPUTS - 

IMPLICIT: 
OUTPUTS - 

IMPLICIT: 



ERRO:-* FLAGS SHOULD BE SET BY UNAISR ROUTINES. 

ERROR MESSAGES ARE PRINTED OUT TO THE OPERATOR CONSOLE 



CALLING SEQUENCE: 

CALL ERROR 



KyflCBO DEUNA NI 
ERROR HANDLE UN 



UNA NI EXERCI! 
NDLE UNA INTEl 



3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 



3030 
3031 



3032 
3033 
3034 



3035 
3036 
3037 



3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3C56 
3057 
3058 
3059 
3060 
3061 



070150 C0533? 



070154 
070160 
070162 
070166 
070170 
070174 
070176 
070176 
070^0 
070202 
070204 
070206 
070210 
070210 
070212 
070214 
070216 
070220 
070224 
070226 
070226 
070230 
070232 
070234 
070236 
070242 
070244 
070244 
070246 
070250 
070252 
070254 
070260 



005737 
001013 
005737 
001017 
005737 
001023 

104455 
000004 
064373 
067460 
000424 

104455 
000001 
064272 
067460 
005337 
000415 

104455 
000002 
064321 
067460 
005337 
000406 

104455 
000003 
064341 
067460 
005337 



:R DIAG MACRO M1200 
tUPT ERRORS 



050530 
050514 
050512 
050526 
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SEQ 98 



EKRORit 


DEC 


ERRFLG 




TST 


PCEFLG 




BNE 


51 




TST 


FATFLG 




BNE 


10* 




TST 


BCOUNT 




BNE 


15$ 




ERRDF 


4,EMSG04.ERR1 



050514 



BR 20$ 
5$: ERRDF l.EMSGOl.ERRl 



DEC PCEFLG 
BR 20$ 
10$: ERRDF 2,EMSG02,ERR1 



050512 



15$: 



DEC FATFLG 

BR 20$ 

ERRDF 3,EMSG03,ERR1 



050526 



DEC BCOUNT 
20$: RETURN 



.SBTTL UNAINI INITIALIZE THE UNA 



DECRIMENT ERROR COUNTER TO SHOW 
THAT IT HAS BEEN HANDLED 
SEE IF PORT COMMAND ERROR 

IF YES, BRANCH 
SEE IF UNA FATAL ERROR 

IF YES, BRANCH 
SEE IF UNEXPLAINED INTERRUPT 

IF YES. BRANCH 
ELSE UNKNOWN ERROR 

TRAP 
.WORD 
.WORD 
.WORD 
j EXIT 
fPORT COMMAND ERROR 

TRAP 
.WORD 
.WORD 
WORD 
i INOICATE THAT IT WAS HANOLED 
j EXIT 
j UNA FATAL ERROR 

TRAP 
.WORD 
.WORD 
.WORD 
i KEEP UP ON BOOK KEEPING 
l EXIT 
l UNEXPLAINED INTERRUPT 



j BOOK KEEPING 
{RETURN 



TRAP 

.WORD 
.WORD 
.WORD 



*** ************ *** ****** *** ********** ******** * *** ******* ** ***** 

SUBROUTINE TO 

1) SETS UNA IN THE READY STATE 

2) INITIALIZES ALL UNA GLOBAL DATA LOCATIONS 

TO DEFAULT VALUES. 

CALLED BY: 

CALL UNAINI 

INPUTS: NONE 

OUTPUTS: NONE 

SIDEEFFECTS: ALL GLOBAL LOCATIONS ARE ZEROED 
************ *********** *****i *************** ************ **** 4 * 4 



C$ERDF 
4 

EMSG04 
ERR1 



C$ERDF 
1 

EMSG01 
ERR1 



C$ERDF 
2 

EMSG02 
ERR1 



C$ERDF 
3 

EMSG03 
ERR1 
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SEQ 99 



3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 



3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 



3100 
3101 
M02 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 



070330 
070336 

070342 
070354 
070356 
070360 
070360 
070362 
070364 
070366 



070370 

070370 
070374 
070400 
070404 



I*************************************** 

t RESET AND STOP UNA HARDWARE 

I ******** ******************************* 



070262 013703 047632 

070266 012713 000040 

070272 005002 

070274 011301 

070276 032701 004000 

070302 0010O6 

070304 005302 

070306 001372 

070310 

070310 104455 

070312 000017 

070314 065031 

070316 067460 



070320 012713 004000 



UNAINI::t10V 
MOV 



7$ 



CLR 
NOV 
BIT 
BNE 
DEC 
BNE 
ERROF 



PCSRO, R3 
ORSET, CR3) 

R2 

CR3), Rl 
OONT, Rl 
9$ 

R2 
7* 
15.EMSG15.ERR1 



9$: 



MOV 



♦ONI. (R3) 



| *************** ************************ 

i NOW ENABLE INTERRUPTS FOR THE ALL 
i PORT COMMANDS ET AL 

j ***************************** ********** 



070324 112713 000100 



MOVB 



*INFE, (R3) 



012763 047666 000004 
005063 000006 



001404 



104455 
000005 
064415 
067460 



005037 047642 

005037 04 7644 

005037 04 7646 

005037 047650 



;*******«********************«******.,*** 
» LOAD ADDRESS OF PCBB 

j * 6************** *********** ************ 

MOV *PCBB0,4(R3) 
CLR 6CR3) 

CALL COMAND OGETPCB 

PIPOP R2 

BEQ lOt 

ERRDF 5.EMSG05.ERR1 



10*: 



i**************************************,- 

j INIT GLOBAL DATA 

I*************************************** 

CLR PCSROC 

CLR PCSR1C 

CLR PCSR2C 

CLR PCSR3C 

I**************** *********************** 
j INIT RING POINTERS AND 



MOVE ADDRESS OF PCSRO TO R3 
HARDWARE RESET UNA 

LOOP COLNIER INIT 

READ PCSRO 

WAIT FOR COMMAND TO FINISH 

BACK TIL ONI -1 

COUNT DOWN OELAY 

BACK UNTIL TIMEOUT 

PRINT •' DM DID NOT SET FROM" 

TRAP 

♦ WORD 

.WORD 

.WORD 
" A RESET" 



CiEROF 
15 

EMSG15 
CRR1 



WRITE ONE TO CLEAR DNI 



ENABLE INTERRUPTS 



LOWER 16 BITS OF ADRS 
UPPER 2 

i LOAD ADDRESS 
GET SUCCESS/FAILURE REPORT 
CONTINUE IF OK 
ELSE REPORT ERROR 

TRAP CSERDF 
.UORO 5 
.WORD EMSG05 
.WORD ERR1 



INIT CONTENTS OF CUR PCSRO 
PCSR1 
PCSR2 
PCSR3 
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SEQ 100 



3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3136 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 



070410 
070416 
070424 
070432 

070440 
C70444 
070450 
070456 
070470 
070472 

070474 
070500 
070504 
070512 
070524 
070526 



070530 
070534 
070540 
070544 

070550 
070554 
070560 
070564 

070570 
070574 
070600 
070604 

070610 
070614 
070620 

070624 



070644 

070650 
070654 



012737 
012737 
012737 
012737 

012702 
013 7 01 
012761 

005302 
001364 

012702 
013701 
012761 

005302 

001364 



012701 
005061 
005061 
005061 

012701 
005061 
005061 
005061 

012701 
005061 
005061 
005^1 

012701 
005061 
005061 

012701 
000006 



012701 
005061 
005061 



047750 
000002 
000004 
000006 

047760 
000002 
000004 
000006 

047770 
000002 
000004 
000006 

050100 
000004 
000006 

050110 



050124 
000004 
000006 



j RING ENTRIES , 

|**v** ********** ****** ********* ********* J 



003772 003756 

003772 003762 

004066 003760 

004066 003/64 

000006 

003756 12* 

000000 000004 



000006 

003760 13$ 

100000 000004 



MOV *XRING,XRGCUR 

MOV *XRXNG,XRGNXT 

MOV 4RRING >RRGCUR 

MOV *RRING t RRGNXT 

MOV 4N0.NTR.R2 

MOV XRGCUR,R1 

MOV *0,4CR1) 

CALL GETXNX 0XRGCUR 

DEC R2 

BNE 12* 

MOV *N0,NTR,R2 

MOV RRGCUR.R1 

MOV $100000, 4CR1) 

CALL GETRNX 4RRGCUR 

D£C R2 

BNE 13$ 



j *********************** *********** ***** j 

; CLEAR UP ALL PCS ANO UCB , j 
I SET BACK TO DEFAULT VALUES i 
j *************************************** } 



I SET POINTERS TO BEGINING OF RING 



j RESET OWNERSHIP AND STATUS OF 

I RING ENTRIES 

j FOR TRANSMIT RING... 



; . ..AND RECIEVE RING 



070660 012701 050150 



MOV 
CLR 
CLR 
CLR 

MOV 
CLR 
CLR 
CLR 

MOV 
CLR 
CLR 
CLK 

MOV 
CLR 
CLR 

MOV 

,REPT 6 
CLR 
.ENOR 

MOV 
CLR 
CLR 

MOV 



OIRDDE, Rl 
2CR1) 
4CR1) 
6(R1) 

*IRDPH, Rl 
2(RJ> 
4(R1) 
6(R1) 

<MWDPH, Rl 
2CR1) 
4CR1) 
6(R1) 

OIRDRN, Rl 

4(R1) 

6(R1) 

0UCB1O, Rl 

(Rl)* 



OIWORN, Rl 

4(Ri; 

6(R1) 
**RDCN. Rl 



; READ DEF PHY ADDR PCB 

I READ CURRENT PHY ADDR PCB 

S WRITE CURRENT PHY ADDR PCB 

l READ RING FORMAT 

; RING ENTRIES? 
I INIT TO 

\ WRITE RING FORMAT 
I READ COUNTERS 
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3168 


070664 


005061 


000004 


3169 








3170 


070670 


012701 


050160 


3171 


070674 


012702 


000040 


3172 


070 700 


005021 




3173 


070702 


005302 




3174 


070704 


001375 




3175 








3176 


070706 


012701 


050260 


3177 


070712 


005061 


000004 


3178 








3179 


070716 


012701 


050270 


3180 


070722 


005061 


000002 


3181 


070726 


005061 


000004 


3182 


070732 


005061 


000006 


3183 








3184 


070736 


012701 


050300 


3185 


070742 


005061 


000002 


3186 


070746 


005061 


000004 


3187 


070752 


005061 


000006 


3188 








3189 


070756 


012701 


050310 


3190 


070762 


005061 


000002 


3191 


070766 


005061 


000004 


3192 


070772 


005061 


000006 


3193 








3194 


070776 


012701 


050320 


3195 


0710O2 


005061 


000002 


3l% 


071006 


005061 


000004 


3197 


071012 


005061 


000006 


3198 








3199 


071016 


005037 


050516 


3200 


071022 






3201 


071034 






3202 


071036 


001404 




3203 


071040 








071040 


104455 






071042 


000020 






071044 


065064 






071046 


067460 




3204 








3205 


071050 






3206 


071062 






3207 


071064 


001404 




3208 


071066 








071066 


104455 






071C70 


000007 






0710/2 


064510 






071074 


067460 




3209 








3210 


071076 






3211 


071110 






3212 


071H2 


001404 




3213 


071114 








071114 


104455 






071U6 


000006 






071120 


064450 





CLR 



14$? 



15$: 



20$: 



4(R1) 



MCV 
MOV 
CLR 
DEC 
BNE 


*UCB12, 
*40, R2 
(Rl)* 
R2 
14$ 


Rl 


MOV 
CLR 


♦$CLRC, 
4CR1) 


Rl 


MOV 
CLR 
CLR 
CLR 


0$RDMO, 
2CR1) 
4CR1) 
6CR1) 


Rl 


MOV 
CLR 
CLR 
CLR 


*$WDMO, 
2CR1) 
4(R1) 
6CR1) 


Rl 


MOV 
CLR 
CLR 
CLR 


*$RDST, 
2CR1) 
4CR1) 
6CR1) 


Rl 


MOV 
CLR 
CLR 
CLR 


«$CLRS, 
2(R1) 
4CR1) 
6CR1) 


Rl 


CLR 
CALL 
Pi POP 
BEG 
ERRDF 


NIRCNT 

FLMCT OWDRNGS 

R2 

15$ 

16.EMSG16.ERR1 



CALL 


COMAND OSTRT 


P$P0P 


R2 


BEQ 


20$ 


ERROF 


7.EMSG07.ERR1 



CALL 


PUNCT ORDPHYA 


P$P0P 


R2 


BEQ 


25$ 


ERRDF 


6.EMSG06.ERR1 



SEQ 101 



j COUNTER ENTRIES 



i CLEAR COUNTERS 
; READ MODE 

j WRI1E MODE 

; READ STATUS 

; READ AND CLEAR STATUS 



t CLEAR BUFFERS RECEIVED COUNTER 

I WRITE DESCRIPTOR RINGS 

; CHECK FOR ERROR 

i IF OK, CONTINUE 

; ELSE REPORT ERROR 

TRAP C$ERDF 
.WORD 16 
.WORD EMSG16 
.WORD ERR1 

I PUT \Mf\ IN RUNNING STATE 

i CHECK FO^ ERROR 

j IF OK. COSTING 

j ELSE REPORT ERROR 

TRAP C$ERDF 
.WORD 7 
.WORD EMSG07 
.WORD ERR1 

j READ UNA PHYSICAL ADDRESS 

; CHECK FOR ERROR 

I IF OK, CONTINUE 

i ELSE, REPORT ERROR 

TRAP C$ERDF 

. WORD 6 

. WORD EMSG06 



L8 
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SEQ 102 



3214 
3215 
6?lt 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
^246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 



071122 067460 



071124 
07U30 
071134 
071136 
07U40 

071142 



071144 
0711*4 
071146 
071150 

071152 

071154 



071162 
071166 
071172 
071176 
071202 

071206 
071210 



071216 
071222 

071224 
071230 

071232 
071236 



071244 
071250 



01270i. 
012704 
012124 
012124 
011114 



010146 
010246 
010346 

005003 
013701 



07U60 011103 



012137 
012137 
012137 
011137 
013701 

000303 
110361 



071214 000303 



032703 
001403 

005237 
000443 

032703 
001402 



071240 005237 



032703 
001402 



047670 
047/62 



25$; 



MOV 
MOV 
MOV 
MOV 
MOV 

RETURN 



0PCBB2, Rl 
OPHYAOk, R4 
CR1)*.CR4)* 
CR1)*.CR4)* 
CRD.CR4) 



.WORD ERR1 

; STORE PHYSICAL ADDRESS 

; MOVE FIRST TWO BYTES 
j AND SECOND TWO 
t AND DONE 



SBTTL UNAISR UNA INTERRUPT SERVICE ROUTINE 

♦ 

THIS INTERRUPT ROUTINE WILL BE THE OkLY INTERRUPT ROUTINE 
WHICH THE UNA HARDWARE WILL VECTOR TO UPON HARDWARE INTERRUPT. 

THE REASON FOR SUCH INTERRUPTS ARE TO BE DETERMINED 
FROM THE APPROPRIATE BITS IN THE PCSRO. 

IN ADDITION ALL WRITE ONE TO CLEAR BITS OF THE PCSRO 
ARE CLEARED FROM THIS ROUTINE, 



j SAVE Rl 
i . . . 
I . . . 



047632 



047642 
047644 
047646 
047650 
047652 



000001 

100400 

050512 

040000 

050514 
020000 



UNAISR;: 

MOV 

MOV 
HOV 


Rl.-(SP) 
R2.-CSP) 
R3.-CSP) 


CL.R 
MOV 


R3 
PCSRO.Rl 


MOV 


CRD.R3 


MOV 
MOV 
MOV 
hOV 
MOV 


CR1)*.PCSR0C 

CRD+.PCSR1C 

CR1)*,PCSR2C 

CRD.PCSR3C 

PCSRO.Rl 


SWAB 
MOVB 


R3 

R3.KR1) 



j SETUP WRITE 1 TO CLR MASK 
{GET PCSRO ADDRESS 

jAND ITS CONTENTS 

j SAVE PCSR'S FOR DEBUG 



SWAB 



R3 



j REORIENT CONTENTS OF PCSRO 
j WRITE ONE TO CLEAR 
» ONLY CLEAR UPPER BYTE 
{REORIENT CONTENTS OF PCSRO 



10$: 



20$: 



BIT 
BEQ 


tfSERI'FATI 
10$ 


R3 


;ANY FATAL STATUS ?? 


INC 
BR 


FATFLG 
90$ 




I SET FLAG 
{EXIT 


BIT 
BEQ 


0PCEI.R3 
20$ 




{PORT COMMAND EPROR INTERRUPT? 

|N0 


INC 


PCEFLG 




lYES, INCREMENT FLAG 


BIT 
BEQ 


0RXI.R3 
30$ 




;RECV INTERRUPT ?? 
j NO 
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SEQ 103 



3270 
3271 

3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
i285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
33? S 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 



071252 005237 



071256 
071262 
071264 

071270 
071274 
071276 

071302 
071306 
071310 

071314 
071320 
071322 
071326 
071330 
071334 
071340 
071342 
071344 
071346 



071 **n 

071350 
071352 
071356 
071362 
071370 



032703 
001402 
005037 

032703 
001402 
005237 

032/03 
001402 
005237 

032703 
001007 
C32703 
001002 
005237 
005237 
012603 
012602 
012601 
000002 



050516 

010000 

050520 

004000 

050522 

002000 

050524 

034000 

142000 

050526 
050530 



052701 
010177 



000100 
156250 



INC 



NIRCNT 



30$; 


BIT 


*TXI,R3 




BEQ 


40$ 




CLR 


XFLAG 


40$: 


BIT 


0DNI.R3 




BEQ 


45$ 




INC 


DNIFLG 


45$: 


BIT 


4RCBI.R3 




BEQ 


50$ 




INC 


RBFCNT 


50$: 


BIT 


*RXI»TXI!DNI,R3 




BNE 


90$ 




BIT 


0SERI!PCEI!RCBI,R3 




BNE 


80$ 




INC 


BCOUNT 


80$; 


INC 


ERRFLG 


90$: 


MOV 


(SP)*,R3 




MOV 


(SP)*,R2 




MOV 


(SP)*,R1 




RTI 





I YES, SET FLAG 

; TRANSMIT INTERRUPT ?? 

{NO 

l YES. SET FLAG 

j COMMAND OONE ?? 

f N0 

{YES, COUNT EACH ONI 

{REC1EVE BUFFER UNAVAILABLE? 

:N0 

I COUNT THEM 

j CHECK FOR NON-ERROR INTERRUPT 

I EXIT IF ONE OCCURED 

j CHECK FOR ERROR INTERRUPT 

j IF ONE OCCURED, INCR, ERRFLG 

iSLSE, NONSENSE INTERRUPT 

;RESTORE REGISTERS 
{RESTORE REGISTERS 
jRESTORE REGISTERS 
jAUF WIEOERSEHEN 



.SBTTL COMAND SUBR TO ISSUE A UNA PORT COMMAND 



FUNCTIONAL DESCRIPTION 

THIS SUBROUTINE ISSUES A UNA PORT COMMAND. ERRORS 
ARE HANDLED BY THE SUBROUTINE ERROR AND REPORTED IN 
P2 IF ONE OCCURED. 

INPUTS - PI - THE UNA PORT COMMAND MNEMONIC OP THF 

DESIRED COMMAND. 

OUTPUTS - P2 - SUCCESS REPORT. CONTAINS FOR SUCCESS 

-1 IF A UNA ERROR OCCURED. THIS PARAMETER 
IS PASSED DIRECTLY FROM THE WAIT 
ROUTINE AND IS UNTOUCHED BY COMAND. 

CALLING PROCEDURE - CALL COMAND #<COMMANO TYPE> 

SIDE EFFECTS - IF AN ERROR HAS OCCURED, THE ROUTINE ERROR WILL 

BE CALLED. 
REGISTER USAGE - Rl CONTAINS THE COMMAND TYPE. 



COMAND:: 



10$: 



P$POP 

BIS 

MOV 

CALL 

RETURN 



Rl 

OINTE.Rl 
R1.8PCSR0 
WAIT 



j MOVE COMMAND TYPE TO Rl 
j ADD INTERRUPT TO COMMAND 
iMO^ COMMAND ,0 PCSRO 
tWAIV FOR DONE INTERRUPT 
{RETURN - ERROR INFO STILL ON 
j PARAMETER STACK FROM WAIT SUB, 



mi 



80 



>EUNA_NI EXERCISER PIAG MACRO 

PERFORM A UNA PORT FUNCTION 



5UBR TO 



N8 
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SEQ 104 



3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3o71 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3381 
33ti f ; 
3383 



071372 

071374 006301 

071376 062701 047676 



071402 012702 047666 

071406 011101 

071410 012122 

071412 012122 

071414 012122 

071416 012122 
071420 
071432 



.SBTTL FUNCT SUBR TO PERFORM A U^A PORT FUNCTION 



- - ¥ 



FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE PERFORMS A UNA PORT FUNCTION. THE 
FUNCTION SPECIFIC PCB IS MOVED INTO THE UNA PCB . 

INPUTS - PI - THE UNA PORT FUNCTION MNEMONIC OF THE 

DESIRED FUNCTION. 

OUTPUTS - PP. - SUCCESS REPORT. CONTAINS FOR SUCCESS 

-1 IF A UNA ERROR OCCURED, 
THIS PARAMETERIS PASSED DIRECTLY FROM THE 
COMAND SUB AND IS NOT AFFECTED BY FUNCT. 

CALLING PROCEOURE - CALL FUNCT *<FUNCTION TYPE> 

SIDE EFFECTS - IF AN ERROR HAS OCCURED, THE ROUTINE ERROR WILL 

BE CALLED, 
REGISTER USAGE - Rl CONTAINS THE FUNCTION TYPE, ■•'HICH IS TRANSFORMED 

TO THE ADDRESS OF THE FUNCTION SPECIFIC PCB. 
R2 CONTAINS THE ADDRESS OF THE UNA PCB. 



•--* 



FUNCT:? PSPOP 


Rl 


ASL 


Rl 


ADD 


OFUNTAB.Rl 


MOV 


OPCBBO, R2 


MOV 


(Rl).Rl 


MOV 


CR1)*,CR2)* 


MOV 


(R1)*,(R2)» 


MOV 


fRl)*.(R2)» 


MOV 


(R1)*,(R2)» 



CALL COMAND OGETFNT 
RETURN 



.SBTTL XMIT 



TRANSMIT UNA PACKETS 



j GET FUNCTION TYPE INTO Rl 

j MULTIPLY BY TUO 

j ADD FUNCTION TABLE OFFSET 

i Rl NOW CONTAINS ADDRESS OF ADDRESS 

• OF FUNCTION SPECIFIC PCB 

j PU T UNA PCB INTO R2 

j PUf ADDRESS OF PCB INTO Rl 

} MOV PCB'S 

j MOV PCB'S 

} MOV PCB'S 

j MOV PCB'S 

; ISSUE GET PORT FUNCTION COMMAND 

j SUCCESS INFO FROM COMAND SUBROUTINE 

} IS STILL ON PARAMETER STACK 



FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE SETS UP THE TRANSMIT DESCRIPTOR 
RING ENTRIES AND ISSUES A POLL DEMAND COMMAND TO 
THE UNA, 

INPUTS - NONE 

OUTPUTS - PI - SUCCESS REPORT, FOR SUCCESS, -1 FOR FAILURE 

CALL PROCEDURE - CALL XMIT 

P$POP PI 

SIDE EFFECTS - THE RING POINTER XRGNXT WILL BE UPDATED TO POINT THE NFXT 
AVAILABLE ENTRY AFTER THE TRANSMIT OPERATION, 
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SEQ 105 



3384 
3305 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
34U 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3452 
3433 
3434 



34 35 
3436 



071434 
071440 
071444 
071452 
071454 

071460 
071466 
071474 
071506 
071510 
071512 
071516 
071522 
071526 
071530 
071532 
071534 
071536 
071544 
071546 
071554 
071556 
071570 
071572 
071600 
071602 
071604 
071612 
071614 
071622 
071624 
071630 
071636 
071640 
07 If 52 
071664 
071670 
071674 
071700 
071704 
071706 
071710 
071712 
071714 
071714 
071716 
071720 
071722 
071724 

071726 



005037 
013704 
032764 
001125 
013714 

052764 

012737 



001126 
0'2701 
0127U 
005737 
001403 
005711 
001373 
000506 
032764 

001070 
032764 
001013 

005003 
023737 
001057 
000473 
032764 
001361 
032764 
001434 
005237 
022737 
100747 



016402 
013704 
016403 
013704 
112223 
005304 
001375 
000652 

104455 
000011 
064613 
067460 
0004EO 



050534 
003756 
100000 

050566 

101400 
000001 



003716 
000100 
050520 



100000 
040000 



016000 

002000 

050534 
000003 



000002 
003756 
000002 

050566 



REGISTER USAGE - Rl POINTS TO TIMOUT TIMER LOCATION 

R2 IS USED AS A POINTER IF RETRYS IS SET 

R3 IS USED TO PASS THE SUCCESS/FAILURE MESSAGE BACK 

R4 IS USED AS A POINTER TO RING ENTRIES OR STATUS INFO, 



- - * 



000004 



000004 
050520 



XMITj i 
111 



000004 
000004 



003756 003762 



000004 
000006 

050534 



20$ i 

23$: 

24$ 5 

26$ t 

30$ t 



31$! 



32$! 



CLR RETRYS 

MOV XRGCUR.R4 

BIT #0WN,4(R4) 

BNE 40$ 

MOV BUFLEN,(R4) 



40 1 1 



BIS 


♦0WN!STP!ENP,4(R4) 


MOV 


♦i.XFLAG 


CALL 


COHANO *PDMO 


P$POP 


R3 


BNE 


50$ 


MOV 


♦TIMER2.R1 


MOV 


♦100, (Rl) 


TST 


XFLAG 


BEQ 


24$ 


TST 


(Rl) 


BNE 


23$ 


BR 


45$ 


BIT 


#0WN,4(R4) 


BNE 


409 


BIT 


#ERRS,4(R4) 


BNE 


30$ 


CALL 


GETXNX #XRGCUR 


CLR 


R3 


CMP 


XRGCUR.XRGNXT 


BNE 


42$ 


BR 


55$ 


BIT 


#O€F!0NE!MORE,4(R4) 


BNE 


26$ 


BIT 


#RTRY.6(R4) 


BEQ 


32$ 


INC 


RETRYS 


CMP 


♦3. RETRYS 


BMI 


26$ 


CALL 


GETXNX #XRGCUR 


CALL 


GETXNX #XRGNXT 


MOV 


2(R4).R2 


MOV 


XRCCUR.R4 


MOV 


2(R4).R3 


MOV 


BUFLEN.R4 


MOVB 


(R2)*,(R3)* 


DEC 


R4 


BNE 


31$ 


BR 


1$ 


ERRDF 


9,EMSG09,ERR1 


BR 


50$ 


ERRDF 


10»£MSGlOtfcRRi 



MOVE RING ENTRY LOCATION INTO R4 
MAKE SURE WE OWN THIS 

ELSE, BOOKKEEPING ERROR 
MOVE BUFFER LENGTH INTO FIRST WORD OF 
NEXT AVAILABLE RING ENTRY 

SET OWNERSHIP, START AND ENO OF PACKET BITS 
SET TRANSMIT FLAG 
ISSUE PDMO COWANO 
CHECK FOR ERRORS 
IF YES, EXIT 
SET UP TO WAIT FOR TRANSMIT TO COMPLETE 

SEE IF TRANSMIT DONE BIT SET 

IF SET. SKIP WAIT LOOP 

ELSE, SEE IF TIMEOUT YET 
NO, WAIT 
YES. EXIT 
SEE WHO OWNS THIS ENTRY 

IF \JiA STILL OWNS THIS, SOMETHINGS WRONG 
SEE IF ANY ERRORS 

IF YES, BRANCH AND TAKE CARE OF THEM 
UPDATE "TRANSMIT RING CURRENT" POINTER 

INDICATE SUCCESS 
SEE IF CURRENT POINTER - NEXT POINTER 

IF NO, ERROR 
RETURN 
WAS MESSAGE STILL SENT? 

IF YES, 60 TO NEXT ONE 
ELSE, DIO UNA GIVE UP AFTER 16 TRIES 

IF NOT. FATAL DEVICE ERROR, EXIT 

IF YES. KEEP COUNT OF THEM 
GIVE UP AFTER 3 TIMES 

ELSE, SET U^ TO RETRANSMIT 

UPDATE POINTERS 

SET UP TO COPY DAT* BUFFER 

R2 POINTS TO OLD BUTER 

R3 POINTS TO NEW BUFFER 

R4 COUNTS NUMBER OF BYTES TO COPY 

COPY DATA 

HAVE WE COPIED ALL OF IT 
IF YES, TRY AGAIN 
ELSE, FATAL DEVICE ERROR 

TRAP CtERDF 
.WORD 9 
.WORD EMSGQ9 
.WORD ERRl 
J EXIT 

I TRANSMIT RING BOOKKEEPING ERROR 
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3437 
3438 



3439 
3440 

3441 



3442 

3443 
3444 
3445 
3446 
344? 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
34 75 
34 76 
3477 
3478 
34 79 
3480 
3481 



071726 
071730 
071732 
071734 
071736 
071740 
071740 
071742 
071744 
071746 
071750 
071752 
071756 
071756 
071760 
071762 
071764 
071766 
071772 



071776 
071776 
072000 
072004 
072006 
072012 
072016 
072024 
072030 
072032 
072036 
072042 
072046 
072050 
078054 



104455 
000012 
064656 
067460 
000413 

104455 
000014 
064656 
067460 
000406 
005237 050532 

104456 
000010 
064553 
067460 
012703 177777 



005002 
005737 
001476 
013704 
016401 
012764 
0327vl 
001060 
016403 
016303 
02033/ 
001420 
020337 

001445 



BR 50# 

42$ { ERRDF 12.EMSG10.ERR1 



BR 501 

45$: INC TIMOUT 

ERRHRD 8.EMSG08.ERR1 



501 j NOV •-1.R3 

55$ ; RETURN R3 



TRAP 
.WORD 
.WORD 
.WORD 



SEQ 106 

C$ERDF 
10 

EMSG10 
ERR1 



, BOOKKEEPING ERROR, XRGNXT SHOULD • XRGCUR 

TRAP CIERDF 

.WORD 12 
.WORD EMSG10 
.WORD ERR1 



l REPORT ERROR 



I ERROR INOICATOR 
l RETURN 



TRAP 

.WORD 

.WORD 

.WORD 



CtERHRO 
8 

EMSG08 
ERR1 



.SBTTL RECEVE RECEIVE UNA RING BUFFERS 



- - ♦ 



FUNCTIONAL DESCRIPTION 

THIS SUBROUTINE TAKES INCOMING DATA BUFFERS FROM 

THE \M* AND CHECKS FOR ERRORS, THIS PROCESS CONTINUES 

FOR ALL PENDING BUFFERS. 



INPUTS 
OUTPUTS 



NONE 

PI - THE Nt»«ER OF PACKETS HANDLED BY THIS CALL TO RECEVE 



050516 

003760 

000004 

100000 000004 

100000 

C00002 
OO0014 
050544 

Q5Q546 



CALLING PROCEDURE - CALL RECEVE 

PIPOP PI 

SIDE EFFECTS - THE POINTERS RRGCUR AND RRGNXT ARE UPDATED, 

REGISTER USAGE - Rl IS USED TO HOLD CURRENT PACKET STATUS INFORMATION 

R2 COUNTS THE NUMBER 0*" PACKETS HANOLED 
R4 POINTS TO THE RING DESCRIPTOR ENTRY 



CLEAR PACKETS HANDLED COUNTER 
SEE IF ANY PACKETS TO RECEIVE 

IF NO. EXIT 
HOVE CURRENT RECEIVE RING POINTER TO R4 
MOVE STATUS OF PACKET TO Rl 
RESET RING DESCRIPTOR 
SEE WHO OWNS THIS BUFFER 

IF STILL OWNED BY UNA. ERROR 
MOVE BUFFER AOORESS INTO R3 
MOVE PROTOTYPE INTO R3 
SEE IF IT IS AN ACCEPTABLE PRQTQCALL TYPE 

IF YES. CONT. 

£LS£ CH^CK OTHfcR GQQQ TYPE 
IF OK. CONT % 



RECEVE; 


» 






CLR 


R2 


Ui 


TST 


NIRChT 




BEQ 


60* 




MOV 


RRGCUR. R4 




MOV 


4(R4),R1 




MOV 


*lOCOOO,4(R4) 




BIT 


00WN,R1 




BNE 


45$ 




MOV 


2(R4),R3 




MOV 


r>R0T0T(R3),R3 




CMP 


R3.PR0T00 




BEQ 


101 




CMP 


R3.PR0T02 




BEQ 


10$ 



D9 
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SEQ 107 



3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 



3450 
3491 
3492 
3493 
3494 
3495 
3496 



3497 
3498 
3499 



072056 
072070 
072102 

072106 
072110 
072114 
072116 
072122 
072122 
072126 
072132 
072134 
072136 
072142 
072144 
072150 
072152 
072156 
072170 
072172 
072172 
072174 
072176 
072200 
072202 



005337 
000435 
032701 
001413 
005237 

012746 
012746 
010600 
104417 
062706 
000745 
005237 
005202 
005337 

000404 

104455 
000013 
064716 
067460 



050516 

040000 

050536 

052631 
000001 

000004 
050540 
050516 



51: 



10$: 



CALL 

S& L 

BR 

BIT 

BEQ 

INC 



GETRNX fRRGCUR 

GETRNX GRRGNXT 

NIRCNT 

601 

♦ERRS,R1 

201 

RCVERR 



PRINTF GRECERR 





BR 


51 


20* j 


INC 


RCVBUF 


25$: 


.TNC 


R2 




DEC 


NIRCNT 




CALL 


GETRNX ORRGCUR 




BR 


60i 


45*: 


ERRDF 


11.EMSG11.ERR1 


60$: 


RETi«N 


R2 



ELSE, THROW OUT AND UPDATE 
CURRENT AND NEXT POINTERS 
DECREMENT RECEIVE COUNTER 
EXIT 
SEE IF ANY ERRORS 
FOR NO ERRORS BR TO 201 
ELSE, INCREMENT RECEIVE ERROR COUNTER 
PRINT ERROR MESSAGE 

MOV 
MOV 
MOV 
TRAP 
ADD 
I UPDATE POINTERS ANO RETURN 
I INCREMENT GOOO BUFFERS RECEIVED COUNTER 
» KEEP COUNT OF HOW MANY BUFFERS RECEIVED 
I KEEP BOOKKEEPING IN ORDER 
I UPDATE "RECEIVE RING CURRENT" POINTER 

; RECEIVE RING BOOKKEEPING ERROR 

TRAP CIERDF 

.WORD 11 
.WORD EM5G11 
.WORD ERR1 

» RETURN WITH NUMBER OF ENTRYS HANDLED 



*recerr,-(sp) 
#i,-(sp:> 

SP,RO 

C1PNTF 
44.5P 



E9 
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SEQ 108 



3504 
3505 
3506 
3507 
3508 
3509 
3510 
3511 
3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 



- - * 



EDPACK 



ETHERNET DATA PACK 



THIS ROUTINE WILL CONVERT A STRING Of HEX CHARACTERS INTO A RIGHT 
JUSTIFIED BINARY STREAM (WITH LEADING ZEROS), COMPATIBLE WITH 
ETHERNET CONVENTIONS. THE SOURCE STRING MUST BE FORMATTEO USING 
EITHER A WORD BY WORD HEX DESCRIPTION OR A BYTE BY BYTE HEX 
DESCRIPTION. THE RETURNED STRING WILL BE BYTE ORIENTED AS 
REQUIRED BY THE ETHERNET: 
LO-BYTE-UORDO HI-BYTE-WORDO L0-BYTE-WORD1 HI -BYTE- WORD! • ETC. 



INPUT ARGUMENTS 



PI - 



EXPLICIT OUTPUTS 
IMPLIED OUTPUTS 

SUBCRDINATE PROCEDURE. 
CALLING PROCEDURE 



P2 - 
P3 - 
P4 - 

THE 



072206 
072320 

072322 

072332 
072334 
072336 
072356 

072362 

072364 

072366 
072370 

072406 



000000 



0O50O2 
006303 



005702 
001010 

006203 



LOCDST: 

SOURCE: 


.BLKB 

.WORD 


74. 


EDPACKj 


P*POP 


SOURCE, R4, 




CLR 
ASL 

CALL 
PIPOP 


R2 

R3 

HXFORM SOU 

R1.R2 




TST 
BNE 


R2 
9$ 




ASR 

CALL 


R3 

HEXBIN «L0 


9$; 


RETURN 


R2 



AODRESS OF THE SOURCE (HEX) STRING 
TO BE CONVERTED TO A BINARY STREAM. 
ADDRESS OF THE DESIRED DESTINATION 
BUFFER WHICH WILL ACCEPT BINARY DATA 
LENGTH CIN BYTES) OF THE DESTINATION 
BUFFER 

ZERO IF SUCCESSFUL, -1 IF BUFFER TOO 
LONG OR OOD NUMBER OF HEX CHARACTERS 
BUFFER AT P2 WILL CONTAIN A RIGHT 
JUSTIFIED BINARY STREAM W/ LEADING ZEROS 
AND CORRESPONDING TO HEX STRING AT R5. 
HXFORM. (STRIP NONHEX CHARACTERS) 
HEXBIN, (HEX TO BINARY CONVERSION) 
CALL EfVPACK P1.P2.P3 i INPUT P1-P3 PARAMETERS 
P*POP P4 jOUTPUT P4 PARAMETER 



l MAX NUMBER OF CHARACTERS THAT MAY BE ENTERRED 
i SOURCE ADDRESS 

lR4 -DESTINATION. R3-NUMBER OF CHARS ROO 
iSOURCE-SRC ADDRESS, ORIENT -WORD /BYTE? 
i ASSUME NO ERRORS, VALUE RETJRNED 
iNWBER OF CHARACTERS REQUIRED W/ »0"S 
0CDST.R3 

iRl-ADDRESS OF LAST CHAR 

1R2-SUCCESS/FAIL COOE (0/-1) 

|R1 WILL POINT TO RIGHTMOST CHARACTER 

jRIGHT JUSTIFY BUFFER 

i CONVERT HEX AT LOCDST TO BINARY 

|R3 BYTES IN OUTPUT BI T STREAM 



jRETURN WITH SUCCESS/FAILURE INOICATION 
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F9 



3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3583 
3586 
3587 
3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3508 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 



072412 000000 
072414 



072424 
072426 

072432 
072434 

072440 
072442 
072446 
072450 
072454 
072A56 
072462 
072464 
072470 

072472 
072474 



072476 
0725O0 
072502 

072506 



010204 
063704 

112301 

142701 

001*14 
120127 
100413 
120127 
100406 
120127 
100405 
122701 
100402 

110122 
001405 



020402 
100354 
012704 
000404 



- - f 
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HXFORM 



SEQ 109 



HEX FORMAT ROUTINE 



THIS ROUTINE WILL ACCEPT A HEX STRING, AND STRIP OUT THE NON-HEX 
CHARACTERS (WITHOUT FLAGGING AN ERROR FOR THE NON-HEX CHARACTERS). 
A NULL WILL BE LEFT AS THE ENO OF STRING DELIMITTER. 



INPUT ARGUMENTS 

EXPLICIT OUPUTS 

IMPLICIT OUTPUTS 
CALLING PROCEDURE 



072412 

000200 

000060 
000072 
000 101 
000106 



17777? 



HXN: 
HXFORMt 


.WORD 
PIPOP 


R3,R2,HXN 




MOV 
ADD 


R2.R4 

HXN.R1 


1$: 
2$; 


MOVB 
BICB 


(R3)»,R1 
0200, Rl 




BEQ 

CMPB 

SMI 

CMPB 
BMI 
CMPB 
BMI 

CMPB 
BMI 


41 

R1.460 
6) 

FU.*72 
4t 

R1.0101 
61 

0106. Rl 
6$ 


4$: 


MOVB 
BEQ 


R1.CR2)* 
9$ 


6$: 
7$t 


CMP 
BPL 
MOV 
BR 


R4.R2 
1$ 

*-l»R4 
11$ 



PI- ADDRESS OF THE SOURCE ASCII STRING (NULL 

DELIMITTER AT ENO OF STRING) 
P2- ADDRESS OF THE DESTINATION ASCII HEX STRING 

(STRIPPED OF NON-HEX AND RIGHT JUSTIFIED) 
P3- THE NUMBER OF HEX CHARACTERS DESIRED 8R4 
P4- WILL CONTAIN THE ADDRESS OF THE LAST 

CHARACTER IN THE OUTPUT BUFFER. 
P5- THE SUCCESS/FAILURE (0/-1) INDICATOR 



THE BUFFER AT R4 WILL 
HEX (ASCII) STRING. 
CALL HXFORM P1,P2,P3 
P*POP P4,P5 



CONTAIN FORMATTED 



ADDRESS OF SOURCE STRING 
ADDRESS OF DESTINATION STRING 
NUMBER OF HEX CHARACTERS DESIRED 

DESTINATION ADDRESS, R2: DESTINATION POINTER 

POINT TO END OF OUTPUT BUFFER (DESTINATION) 

DO WHILE NO NULL FOUNO IN SOURCE STRING 

GET BYTE IN QUESTION (6 POINT TO NEXT BYTE) 

ENSURE HI BIT IS LO (SEVEN BIT ASCII) 

CHECK FOR VALID HEX CHARACTER 

THE NULL IS A VALID CHARACTER (BUT THE LAST) 

IF GREATER THAN "0 M THEN RANGE OK 

6* -OUT OF RANGE, BYTE VALUE TOO SMALL 

IF BYTE tS LESS THAN 72 AND >»60 THEN RANGE OK 

RANGE OK IF >-60 ANO <72 ELSE, CONTINUE CHECK 

BYTE MUSI BE >-101 TO CONTINUE CHECK 

IF BYTE >71 AND <101 THEN BYTE OUT OF RANGE. 

BYT£ WS1 BE <-106 TO BE OK. ELSE: NOT OK, 

BVTE NOT OK, DON'T PLACE THIS BYTE IN OUTPUT. 

PLACE THE HEX BYTE IN THE OUTPUT BUFFER. 

BYTE IN RANGE. CONFIRNTD BYTE OK. POINT TO 

NEXT BYTE OEST ADDRESS. IF NULL. THEN EXIT. 

(NO ERRORS) 

IF NOT NULL, THEN CHECK FOR BUFFER OVERFLOW. 

R4 POINTS TO LAST CHARACTER POSITION (OUTPUT) 

R2 - PRESENT WRITE ADDRESS 

(SHOULD BE POSITIVE RESULT OR 0) (MORE TO 00) 

SET ERROR CONDITION (EXIT WITH ERROR) 

ERROR DETECTED EXIT PATH «>~(T00 MANY CHARS) 

I SUCCESSFUL EXIT PATH 



G9 
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3607 072510 

3608 072512 

3609 072514 

3610 072516 

3611 072520 
3612 

3613 



005302 
020402 
001372 
005004 



9*: 



11$; 



DEC 


R2 


CMP 


R4.R2 


BNE 


7$ 


CLR 


R4 


RETURN 


R2.R4 



SEQ 110 

{POINT TO THE LAST ACTUAL CHARACTER AT DEST QFR 

t CHECK FOR MINIMUN OF 12 CHARACTERS. 

j BRANCH IF LESS THAN 12. ERROR. 

t INDICATE SUCESS 

I ADDRESS OF LAST CHARACTER (R2) IS P4 

j ERROR INDICATOR (R4) IS P5 
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SEQ 111 



3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 



5639 
3640 
3641 
3642 
3643 
3644 
3645 
5646 
3647 
3648 
5649 
5650 
5651 
5652 
5653 
5654 
5655 
5*56 
5657 
5658 
5659 
5660 
5661 
5662 
5663 
5664 
5665 
5666 
5667 
3668 
3669 



072526 
072530 
072533 
072536 
072541 
072544 
072547 



072552 



072566 
072572 
072574 
072576 
072600 



072604 
072606 
072610 
072612 

072614 

072616 
072622 
072624 
072626 
072630 



072654 
072636 



000000 
060 
063 
066 
071 
103 
106 



072562 060237 



012704 
121124 
001376 
005201 
162704 



006504 
006504 
006304 
006304 
010403 

012704 
121124 
001376 
005201 
162704 



050403 
110322 



- - ¥ 



HEXBIN 



HEX TO BINARY CONVERSION PROCEDURE 



THIS PROCEDURE WILL CONVERT A STRING OF HEX (ASCII) CHARACTERS 
DIRECTLY TO A BINARY STREAM. THE DESTINATION BINARY STREAM WILL 
REQUIRE ONLY HALF AS MfcNY BYTES AS THE HEX STRING BECAUSE TWO 
HEX CHARACTERS ARE REQUIRED TO REPRESENT A SINGLE BINARY BYTE. 



INPUTS 



OUTPUTS 
IMPLIED OUTPUTS 



PI 
P2 
P3 



SUBORDINATE PROCEDURES 
CALLING PROCEDURE 



SOURCE STRING ADDRESS (DELIMITTED F.Y A NULL) 
DESTINATION ADDRESS FOR THE BINARY DATA. 
THE NUMBER OF BINARY BYTES REQUIRED (HALF THE 

NUMBER OF CHARACTERS AT PI, 

NO EXPLICIT OUTPUTS 

THE BUFFER AT P2 WILL CONTAIN THE BINARY 

STREAM. CONVERTED DIRECTLY FROM THE BUFFER 

AT PI. 

NONE 

CALL HEXBIN Pl.P2.P3 



061 
064 
067 

101 
104 
000 



HN: .WORD 
062 CMPSTR; .ASCIZ /0123456789ABCDEF/ 
065 
070 
102 
105 



.EVEN 
HEXBIN: PIPOP R1.R2.HN 



072526 
072530 

072531 



ADO 



R2.HN 



072530 



072531 



It: 
2$: 


MOV 

CMPB 

BNE 

INC 

SUB 


0CMPSTR.R4 
(R1),(R4)* 
21 

PI 

0CMPSTR*1.R4 




ASL 
ASL 

ASL 
ASL 
MOV 


R4 
R4 
R4 
R4 
R4.R3 


3$: 


MOV 

CMPB 

BNE 

INC 

SUB 


#CMPSTR,R4 

(R1),(R4)> 

3$ 

Rl 

*CMPSTR*1,R4 




BIS 


R4.R3 




MOVB 


R3.CR2)* 



tRl-SOURCE STRING ADDRESS 
IR2-DESTINATI0N STRING ADDRESS 
jHN-NUMBER OF BYTES REQUIRED 

|HN NOW POINTS TO THE LAST_BYTE„POSITION* 1 

I POINTER IN THE COMPARE STRING 

I COMPARE CURRENT CHAR WITH A CHAR IN CMPSTR 

iREPEAT UNTIL CHARACTER FOUND IN LIST 

jPOINT TO THE NEXT ASCII BYTE 

|R4 NOW CONTAINS THE ACTUAL BINARY VALUE FOR 

>THE NIBBLE DESCRIBED BY THE CURRENT BYTE. 

iNOTE: NIBBLE IS THE HI PORTION OF THE BYTE 

iMOVE NIBBLE TO THE HI END OF THE BYTE 



iSAVE THE HI NIBBLE 

iPOINTER INTO COMPARE STRING 

i COMPARE CURRENT CHAR WITH A CHAR IN CMPSTR 

(REPEAT UNTIL MATCH FOUND IN CMPSTR LIST 

iPOINT TO THE NEXT ASCII BYTE 

|R4 NOW CONTAINS THE ACTUAL BINARY VALUE FOR 

I THE NIBBLE DESCRIBED BY THE CURRENT BYTE. 

iNCTF: NIBBLE IS THE HI PORTION OF THE BYTE 

j NOW THE TWO CHARACTERS HAVE MADE A SINGLE BtTE 

jNOW PLACE THE COMPLETE BYTE IN THE DESTINATION 

(AND POINT TO THE NEXT DESTINATION BYTE 



19 
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SFQ 112 



3670 072640 

3671 072644 

3672 072646 
3673 

3674 
3675 



020237 
100750 



072526 



CMP 
BUI 
RETURN 



R2,HN 
1* 



{IF THE DESTINATION POINTER (R2] REACHES THE 
jLAST CHARACTER POSITIONS [HN] THEN DONE, 
t RETURN TO CALLER 
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SEQ 113 



3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3591 
3692 
3693 
3694 
3695 
3696 
3697 



3698 
3699 

3 700 
3701 
3702 
37C3 
3704 
3705 
3706 
3707 
3708 
3709 
3/10 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3 720 
3721 
3 722 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 
3731 



072650 
072653 
072656 
072661 
072664 
072667 
072670 

072672 



072702 
072706 
072710 
072712 
072716 
072720 
072722 
072724 
072726 



072732 
072736 
072742 
072746 
072752 
072754 
072756 



• - ♦ 



060 
063 
066 

071 

103 

106 

000000 



060137 
112103 
1103C4 
042703 
006204 
006204 
006204 
006204 
C42704 



116422 
116322 
112722 
020137 
103755 
105042 



061 
064 
067 
101 
104 



062 HEXC: 

065 

070 

102 

105 



BINHEX BINARY TO HEX CONVERSION PROCEDURE 

THIS PROCEDURE WILL CONVERT A BINARY DATA STREAM INTO A HEX STRING. 

INPUTS - PI- BINARY DATA BUFFER ADDRESS 

P2- NUMBER OF BYTES IN THE BUFFER 
P3- ADDRESS OF OUTPUT BUFFER FOR HEX STRING. 
HEX CHARACTER PAIRS SEPERATED BY »-'"S 
(NOTE: THIS BUFFER MUST BE AT LEAST 3*P2 BYTES LONG) 
OUTPUTS - NONE 
IMPLICIT OUTPUTS THE BUFFER AT P3 WILL CONTAIN THE HEX STRING 

FOLLOWED BY A NULL CHARACTER. 
SUBORDINATE ROUTINES NONE 
CALLING PROCEDURF CALL BINHEX P1.P2.P3 

. ASCII /0123456789ABCDEF/ 



072670 
177760 

177760 



072650 
072650 
000055 
072670 



LST: .WORD 4 

;R1 HAS THE INPUT BUFFER ADDRESS 
jLST: HAS THE NUMBER OF BYTES IN INPUT BUFFER 
»R2 HAS THE OUTPUT BUFFER ADDRESS 
iLST IS NOW ADDRESS OF LAST SOURCE BYTE » 1 
1*: MOVB (R1)*.R3 ,GET THE CURRENT BYTE AND POINT TO NEXT BYTE 

I SEPARATE NIB8LES ANO GET CHARACTERS SEPARATELY 
j ONLY RIGHT BINARY NIBBLE REMAINS IN R3 
t SHIFT OVER FOR LEFT BINARY NIBBLE IN R4 



lUNLY LEFT BINARY NIBBLE REMAINS IN R4 

lR4 IS THE MOST SIGNIFICANT NIBBLE (FIRST) 

|R3 IS THE LEAST SIGNIFICANT NIBBLE (SECOND) 

iPUT THE ASCII BYTE INTO THE BUFFER HI POSITION 

I PUT THE ASCII BYTE INTO THE BUFFFR LO POSITION 

j PUT - BETWEEN HEX PAIRS 

jRESULT IS NEGATIVE UNTIL Ri-LST 

j UNTIL Rl-LST. (TRANSFER ALL SOURCE BYTES) 

j TERMINATE OUTPUT BUFFER WITH A NULL 



SBTTL BLDLD BUILD LOOP DIRECT DATA BUFFERS FOR TRANSMIT, 

- - * 
FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE BUILDS LOOP DIRECT PACKETS FOR TRANSMISSION 
FROM THE LWA. SOURCE ADDRESS. DESTINATION ADDRESS. 
PROT, TYPE. AND LOOP DIRECT HEADER INFO ARE ADDED 
TO THE MESSAGE BUFFER. THE MESSAGE BUFFER IS BUILT 
BY A CALL TO BLDBUF . 



P*POP 


R1.LST.R2 


ADO 


Rl.LST 


MOVB 


(R1)*.R3 


MOVB 


A3.R4 


BIC 


0177760. R5 


ASR 


R4 


ASR 


R4 


ASR 


R4 


ASR 


R4 


BIC 


0177760, R4 


MOVB 


HEXC(R4).(R2)* 


MOVB 


HEXC(R3),(R2)* 


MOVB 


*' -.(R2)<- 


CMP 


Rl.LST 


BLO 


1* 


CLRB 


-CR2) 


RETURN 
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SEQ 11A 



3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3750 
3751 
3732 
3753 
3754 
3755 
3756 
3757 
3758 
:>759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3703 
3784 
3785 
3786 
3787 
3789 



072760 
0/2760 
072762 
072766 
072774 
072776 
073002 
073006 
073012 
073016 
073024 
C3030 
073032 
073036 
073042 
073046 
073052 
073056 
073062 
073066 
073074 
073100 
073104 
073110 
073116 
073124 
073132 
073140 
073146 
073154 
073162 
073166 
07317? 
073202 
073214 
073216 



013704 
032764 
001110 
016404 
013703 
062703 
010337 
162737 
022703 
002477 
010337 
012164 
012164 
011164 
005064 
005064 
005064 
013764 
012702 
012264 
011264 
013764 
013764 
013764 
016264 
013764 
013764 
013764 
062704 
010437 



0004 U 



003762 
100000 

000002 
002372 
000040 
050560 
000016 
002756 

050566 
OOOOOO 
000002 
000004 
000006 
000010 
0OO012 
050544 
050720 
000016 
000020 
017762 
047764 
047766 
000010 
047762 
047764 
047766 
000040 
050570 



INPUTS - PI - THE ADDRESS OF THE DESTINATION ADDRESS (FROM NODE TABLE) 
IMPLICIT - P*SIZE CONTAINS THE SIZE OF THE MESSAGE BUFFER DATA 
XRGNXT POINTS TO THE NEXT AVAILABLE RING ENTRY 
PHYADR HOLDS THE CURRENT LOCAL UNA PHYSICAL ADDRESS 

OUTPUTS - BUILT MESSAGE PACKET. 

CALLING PROCEDURE - CALL BLDLD PI 

SIDE EFFECTS - THE MESSAGE PACKET IS BUILD ANO CONTAINED IN THE 

BUFFER POINTED TO BY XRGNXT WHEN THE ROUTINE WAS ENTERED. 
XRGNXT IS UPDATED TO POINT TO THE NEXT RING ENTRY 

REGISTER USAGE - Rl HOLDS ADDRESS OF DESTINATION ADDRESS 

R2 IS A POINTER FOR THE LOOP DIRECT HEADER INFO 

R3 HOLDS THE PACKET LENGTH 

R4 HOLDS ADDRESS OF NEXT RING ENTRY DATA BUFFER 



i --* 



BLDLD: 



000004 



050560 



000014 



000022 
000024 
000026 
000030 
000032 
000034 
000036 



40*s 



PJPOP 


Rl j 


MOV 


XRGNXT ,R4 , 


BIT 


«0WN,4(R4) , 


BNE 


40* j 


MOV 


2(R4),R4 , 


MOV 


P*SIZE,R3 , 


AOO 


*40.R3 , 


MOV 


R3,XFER , 


SUB 


*16,XFER 


CMP 


*XPKLEN,R3 ; 


BLT 


45$ , 


MOV 


R3.BUFLEN j 


MOV 


CR1)*,DESTIN(R4) , 


MOV 


(R1)*,DESTTN*2(R4) j 


MOV 


(R1),DESTIH*4(R4) i 


CLR 


S0URCCCR4) , 


CLR 


S0URCCf2(R4) i 


CLR 


S0URCC*4(R4) 


MOV 


PR0T0O.PROT0UR4) j 


MOV 


JL0PDIR.R2 , 


MGV 


(R2)»,LDSKIP(R4) , 


MOV 


(R2),LDFCTUA4) i 


MOV 


PHYADR.LDADR1CR4) j 


MOV 


PHYADR*2 t LDADRlf2(R4) , 


MOV 


0HYADP*4,LDADR1 *4(R4) , 


MOV 


10CR2),LDFCT2(R4) , 


MOV 


PHYADR,LDADR2(R4) , 


MOV 


PHYADR f2,LDADR2*2(R4) , 


MOV 


PHYADR*4,L0ADR2*4CR4) i 


AOD 


*LDADR2»6,R4 j 


MOV 


R4,CHPBUF , 


CALL 


BLDBUF R4 i 


CflLL 


GETXNX OXRGNXT t 


BR 


60* { 


ERRDF 


X3,EMSG10,ERRi j 



PUT ADDRESS OF DEST. ADDRESS IN Rl 

MOVE NEXT PACKET ADDRESS TO R4 

CHECK OWNERSHIP BIT 

IF DON'T OWN, BOOKKEEPING ERROR, 

POINT R4 TO DATA BLOCK 

PUT MESSAGE SIZE INTO R3 

ADD HEADER AND LOOP DIRECT INFO TO LENGTH 

PUT BYTES TRANSFERED INTO WORD 

ANO CORRECT FOR HEADER 
SEE IF LONGER THAN ONE PACKET 

IF YES ERROR 
PUT PACKET LENGTH IN BUFLEN 
MOVE FIRST TWO BYTES OF ADDRESS 
HOVE BYTES THREE AND FOUR 
MOVE BYTES FIVE ANO SIX 
LEAVE BLANK SPACE FOR SOURCE ADDRESS 
SIX BYTES WORTH 

MOVE PROTOCALL TYPE INTO HEADER 

MOVE LOOPDIPXCT FORMAT HEADER LOC, TO R2 

SKIP COUNT 

FLECTION CODE (FORWARD) 

LOCAL NODE ADDRESS 
SIX BfTES 

FUNCTION CODE (REPLY) 
LOCAL NODE ADDRESS 
SIX BYTES 

POINT R4 TO FIRST DATA BYTE 

STORE BtJFFER LOCATION FOR DATA COMPARE 

BUILD DATA BUFFER 

UPDATE POINTER TO NEXT RING ENTRY 

EXIT 

TRANSMIT RING BOOKKEEPING ERROR 



C2UAC30 DEUNA NI EXERCISER DIAG MACRO M1200 22 -MAR -84 10:53 
BLDLO BUILD LOOP DIRECT DATA BUFFERS FOR TRANSMIT, 



L9 
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073216 
073220 
073222 
073224 

3769 073226 

3790 073230 
073230 
073232 
073234 
073236 

3791 073240 
3792 



104455 
000015 
064656 
067460 
000404 

104455 
000016 
064 755 
067460 



45$: 



60* j 



BR 
ERRDF 



RETURN 



60$ 
14.EMSG14.ERR1 







SEQ 115 




TRAP 


CJERDF 




.WORD 


13 




.WORD 


EMSG10 




.WORD 


ERR1 


j EXIT 






I MESSAGE SIZE TOO BIG 








THAP 


C*£RDF 




.WORD 


14 




.WORD 


EMSG14 




.WORD 


ERR1 
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SEQ 116 



3794 
3795 
3796 
3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3831 
3832 
3833 
3834 
3835 
3836 
3837 
3338 
3839 
3840 
3841 
3842 
3843 
3844 
3845 
3846 
3847 
3848 
3849 
38oO 



073242 
073242 

073246 
073252 
073260 
073262 
073266 
073272 
073276 
073302 
073310 
073314 
073316 
073322 
073326 
073334 
073342 
073346 
073352 
073356 
073364 
073372 
073400 
073404 
073412 
073420 
073426 
073432 
073440 



013704 
032764 
001140 
016404 
013703 
062703 
010337 
162737 
022703 
002527 
010337 
011264 
016264 
016264 
005064 
005064 
005064 
013764 
012764 
0.«.2764 
011164 
C16164 
016164 
012764 
011264 
016264 
016264 



003762 
100000 

000002 
002372 
000060 
050560 
000016 
002756 

050j66 
COOOOO 
000002 
000004 
000006 
000010 
000012 
050544 
000000 
000002 
000022 
000002 
000004 
000002 
000032 
000002 
000004 



.SBTTL BLDFAS BUILD PACKET FOR FULL ASSIST TRANSMISSION. 



; FUNCTIONAL DESCRIPTION: 



} 



INPUTS - 



OUTPUTS - 



THIS SUBROUTINE BUILDS FULL ASSIST PACKETS FOR TRANSMISSION 
FROM THE UNA. SOURCE ADDRESS, DESTINATION ADDRESS, PROT. TrPE 
AND FULL ASSIST HEADER INFO ARE ADDED TO THE MESSAGE BUFFER. 
THE MESSAGE BUFFER IS BUILT BY A CALL TO BLDBUF. 

PI - THE ADDRESS OF THE DESTINATION ADDRESS (FROM NODE TABLE) 
IMPLICIT - PISIZE CONTAINS THE SIZE OF THE MESSAGE BUFFER DATA 
XRGNXT POINTS TO THE NEXT AVAILABLE RING ENTRY 
PHYADR HOLDS THE CURRENT LOCAL NODE ADDRESS 

THE BUILT BUFFER 



CALLING PROCEDURE - CALL BLDFAS PI 

SIDE EFFECTS - XRGNXT SI UPDATED TO POINT TO THE NEXT RING ENTRY 

REGISTER USAGE - Rl HOLDS ADDRESS OF TARGET NODE ADDRESS 

R2 HOLDS ADDRESS OF ASSIST NODE ADDRESS 

R3 HOLDS THE PACKET LENGTH 

R4 HOLDS ADDRESS OF NEXT RING ENTRY DATA BUFFER 



000004 



050560 



000002 
000004 



000014 
000016 
000020 

000024 
000026 
000030 

000034 
000036 



J --♦ 






BLDFAS i 


% 






P$POP 


R1.R2 




MOV 


XRGNXT, R4 




BIT 


*0WN,4(R4) 




BNE 


40* 




MOV 


2(R4),R4 




MOV 


P*SIZE.R3 




ADD 


060, R3 




MOV 


R3.XFER 




SUB 


416.XFER 




CMP 


*XPKLEN,R3 




BLT 


45$ 




MOV 


R3.BUFLEN 




MOV 


(R2),DESTIN(R4) 




MOV 


2(R2),DESTINf2(R4) 




MOV 


4(R2),DESTIN*4(R4) 




CLR 


S0URCCCR4) 




CLR 


S0URCC*2(R4) 




CLR 


S0URCC+4CR4) 




MOV 


PR0T00.PR0T0TCR4) 




MOV 


00.FASKIPCR4) 




MOV 


*2,FAFCUCH4) 




MOV 


(Rl).FAADRl(RO 




MOV 


2(R1),FAADR!*2(R4) 




MOV 


4(R1),FAADR1*4(R4) 




MOV 


*2,FAFCT2(R4) 




MOV 


(R2),FAADR2(R4) 




MOV 


2CR2),FAADR2*2CR'0 




MOV 


4CR2),FAADR2v4(R4) 



PUT ADDRESS OF TARGET ADDRESS INTO Rl 
AND ADDRESS OF ASSIST ADDRESS INTO R2 

MOVE NEXT PACKET ADORESS TO R4 

CHECK OWNERSHIP BIT 

IF DON'T OWN, BOOKKEEPING ERROR, 

POINT R4 TO DATA BLOCK 

PUT MESSAGE SIZE INTO R3 

ADD HEADER INFO TO LENGTH 

PUT 'BYTES TRANSFERED' INTO WORD 
AND CORRECT FOR HEADER 

SEE IF LONGER THAN ONE PACKET 
IF YES ERROR 

PUT PACKET LENGTH IN BUFLEN 

MOVE FIRST TWO BYTES OF ADDRESS 

MOVE BYTES THREE AND FOUR 

MOVE BYTES FIVE AND SIX 

LEAVE BLANK SPACE FOR SOURCE ADDRESS 
SIX BYTES WORTH 

MOVE PROTOCALL TYPE INTO HEADER 
SKIP COUNT 

FUNCTION CODE (FORWARD) 
TARGET NODE ADDRESS 
SIX BYTES 



FUNCTION CODE (FORWARD) 
ASSIST NOOE ADDRESS 
SIX BYTES 
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3851 
3852 
3853 
3854 
3855 
b856 
3857 
3858 
3859 
3860 
3861 
3862 
3863 
3864 



3865 
3866 



3867 
3868 



073446 
073454 
073462 
073470 
073476 
073504 
0735.12 
073520 
073526 
073532 
073536 
073546 
073560 
073562 
073562 
073564 
073566 
073570 
073572 
073574 
073574 
073576 
073600 
073602 
073604 



012764 
013764 
013764 
013764 
012764 
013764 
013764 
013764 
062704 
010437 



000411 

104455 
000034 
064656 
067460 
000404 

104455 
000035 
064755 
067460 



000002 
047762 
04 7764 
047766 
000001 
047762 
047764 
047766 
000060 
050570 



000040 
000042 
000044 
000046 
000050 
000052 
000054 
000056 



40$: 



45$: 



50$; 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

ADD 

MOV 

CALL 

CALL 

BR 

ERRDF 



BR 
ERRDF 



RETURN 



02,FAFCT3(R4) 

PHYADR.FAADR3CR4) 

PHYADR f 2 , FAADR3 *2( R4 ) 

PHYADR*4 # FAADR3*4(R4) 

♦I.FAFCT4CR4) 

PHYADR,FAADR4(R4) 

PHYADR*2,FAADR4*2CR4) 

PHYAUR»4,FAADR4f4CR4) 

<^FAADR4*6,R4 

R4,CMPBUF 

BLDBUF R4 

GETXNX OXRGNXT 

50$ 

28.EMSG10.ERR1 



50$ 
29,EMSG14,ERR1 



SEQ 117 



FUNCTION CODE (FORWARD) 
LOCAL NODE ADDRESS 
SIX BYTES 

FUNCTION CODE (REPLY) 
LOCAL NODE ADDRESS 
SIX BYTES 

POINT R4 TO FIRST DATA BYTE 

STORE BUFFER LOCATION FOR DATA COMPARE 

BUILD DATA BUFFER 

UPDATE POINTER TO NEXT RING ENTRY 

EXIT 

TRANSMIT RING BOOKKEEPING ERROR 

TRAP C$ERDF 
.WORD 28 
.WORD EMSG10 



EXIT 

MESSAGE SIZE TOO BIG 



.WORD ERR1 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
29 

EMSG14 
ERR1 
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SEQ 118 



3870 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
5879 
3880 
3881 
3882 
3883 
3884 
3885 
5886 
3887 
3688 
3689 
3690 
5691 
5692 
5693 
3694 
5695 
5696 
56>7 
5698 
5699 
3900 
5901 
3902 
3903 
3904 
3905 
3906 
3907 
3906 
3909 
3910 
3911 
3912 



3913 

3914 



3915 
3916 
3917 



,SBTTL BLDAST BUILD TRANSMIT AND RECEIVE ASSIST PACKETS 



073606 
073606 

073612 
073616 
073624 
075626 
073632 
073656 
075642 
075646 
075654 
073660 
07*662 
0756*6 
073672 
0757O0 
075706 
075712 
073716 
073722 
075750 
075756 
073744 
073750 
073756 
073764 
073772 
074000 
0740O6 
074014 
074022 
074050 
074056 
074044 
074050 
074054 
074064 
074076 
074100 
074100 
074102 
074104 
074106 
074110 
07411? 
074112 
074114 
074116 
074120 
074182 



015704 
052764 
001125 
016404 
013703 
062703 
010357 
162757 
022703 
002514 
010337 
011164 
016164 
016164 
005064 
005064 
005064 
013764 
012*64 
012764 
011264 
016^64 
016264 
012764 
013764 
013764 
013764 
012764 
013764 
013764 
013764 
062704 
010437 



000411 

104455 
000043 
064656 
067460 
000404 

104455 
000044 
064 755 
04V 460 



003 "'62 
100000 

000002 
002372 
000050 
050560 
000016 
002756 

050566 
000000 
000002 
000004 
000006 
C00010 
000012 
050544 
000000 
000002 
000022 
000002 
000004 
000002 
047762 
047764 
047766 
000001 
047762 
047764 
047766 
000050 
050570 



000004 



050560 



000002 
000004 



000014 
000016 
000020 

000024 
000026 
000050 
000032 
0O0054 
000056 
000040 
000042 
000044 
000046 



BLDAST 


t i 






PIPOP 


R1.R2 




MOV 


XRGNXT.R4 




BIT 


♦0WN.4CR4) 




BNE 


401 




MOV 


2(R4).R4 




MOV 


PISIZE.R5 




ADD 


050, R3 




MOV 


R5.XFER 




sue 


♦16.XFER 




CMP 


♦XPKLEN,R3 




BLT 


45$ 




MOV 


R3.BUFLEN 




MOV 


(Rl).DESTIN(R*) 




MOV 


2CR1).DESTIN*2(R4) 




MOV 


4(R1),DESTIN»4CR4) 




CLR 


S0URCCCR4) 




CLR 


S0URCC*2(R4) 




CLR 


S0URCC*4(R4) 




MOV 


PROTOO.PR0TOTCR4) 




MOV 


♦0.FASKIPCR4) 




MOV 


♦2.KAFCTKR4) 




MOV 


(R2).FAA0Rl(R4) 




MOV 


2(R2),FAADR1»2(R4) 




MOV 


4(R2).FAA0R1*4(R4) 




MOV 


♦L\FAFCT2(R4) 




MOV 


PHYADR,FAADR2(R4) 




MOV 


PHY AOR ♦ 2 , FAA0R2 ♦ 2( R4 ) 




MOV 


PHYADR*4.FAAOR2»4(R4) 




MOV 


♦ 1.FAFCT5CR4) 




MOV 


PMYADR.FAA0P3CR4) 




MOV 


PHYADR»2,FAAOR3»2(R4) 




MOV 


PHYA0R*4,FAADR3»4CR4) 




ADO 


#F AADR3»6,R4 




MOV 


R4.CMPBUF 




CALL 


BLOBUF P4 




CALL 


GfTXNX OXROi/T 




BR 


501 


40$ { 


ERRDF 


35.EMSG10.ERR1 




BR 


501 


45$} 


ERRDr 


36»EMSG44,£RR1 



PUT DESTINATION AODRESS INTO Rt 

ASSIST ADDRESS INTO R2 
MOVE NEXT PACKET ADDRESS TO R4 
CHECK OWNERSHIP BIT 
IF OON'T OWN, BOOKKEEPING ERROR 
POINT R4 TO DATA BLOCK 
PUT MESSAGE SIZE INTO R3 
ADO HEADER INFO INTO LENGTH 
PUT 'BYTES TRANSFERED' INTO WORD 

AND CORRECT FOR HEADER 
SEE IF LONGER THAN ONE PACKET 

IF YES ERROR 
PUT PACKET LENGTH INTO BUFLEN 
MOVE DESTINATION ADDRESS INTO HEADER 

SIX BYTES WORTH 

LEAVE BLAf* SPACE FOR SOURCE ADDRESS 
SIX BYTES WORTH 

MCVE PROTOCALL TYPE INTO HEADER 
SKIP COUNT 

FUNCTION COOE (FORWARD) 
TARGET NOOE ADDRESS 
SIX BYTES 

FACTION COOE (FORWARD) 
LOCAL NODE ADDRESS 
SIX BYTES WORTH 

FUNCTION COOE (REPLY) 
LOCAL NOOE ADGRESS 



POINT R4 TO FIRST DATA B*TE 

STORE BUTFER LOCATION FOR DATA COMPARE 

BUILD DATA BUFFER 

UPDATE RING POINTER 

TRANSMIT RING BOOKKEEPING ERROR 

TRAP CIERDF 

.WORD 35 
.WORD EHSG10 
.WORD ERR1 



501 



RETURN 



i M&SSA&fc SXZfc TQQ BIG ERROR 




TRAP 


CIERDF 


.WORD 


36 


.WORO 


EHSGU 


.WORD 


ERRl 



Kwa° bms ®MFffl f Ms f m>imLii i . 



22 -MAR- 80 



10:53 



CIO 
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SEQ 119 



3919 
3920 
3921 
3922 
3023 
3924 
3925 
3926 
392? 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 



3965 
3966 

3967 
3968 
3969 

3970 
3971 



074124 
074124 
074130 
074136 
074140 
074144 
074152 
074156 
074162 
074166 
074172 
074176 
C 74 202 
074206 
074214 
074220 
074224 
074230 
074234 
074246 
074250 
074250 
074252 
074254 
074256 
074200 



013704 
032764 
001044 
016404 
012737 
012701 
012164 
012164 
011164 
005064 
005064 
005064 
013764 
012702 
012264 
012264 
011264 

000404 

104455 
000025 
064656 
0*7460 



.SBTTL BLDREQ BUILD REQUEST 10 PACKETS FOR TRANSMIT . 



- - ♦ 



FUNCTIONAL DESCRIPTIONi 

THIS SUBROUTINE BUILDS REQUEST ID PACKETS FOR TRANSMISSION 
FROM THE UNA. SOURCE ADDRESS, DESTINATION ADDRESS, 
PROTOCALL TYPE, SEQUENCE NUMBER ANO REQUEST ID 
HEADER INFOR ARE BUILT IN THIS SUBROUTINE. 

INPUTS - IMPLICIT - THE DESTINATION ADDRESS IS CONTAINED IN ADRBUF. 

OUTPUTS - BUILT MESSAGE PACKET 

CALLING PROCEDURE - CALL BLDREQ 

SIDE EFFECTS - THE MESSAGE PACKET IS BUILT ANO CONTAINED IN THE 
BUFFER POINTED TO BY XRGNXT WHEN THE ROUTINE WAS 
ENTERED. XRGNXT IS UPDATED TO POINT TO THE NEXT ENTRY. 

REGISTER USAGE - Rl HOLDS AOORESS OF DESTINATION ADDRESS, 

R2 IS A POINTER FOR REQUEST ID HEADER INFO. 

R4 HOLDS ADDRESS OF NEXT RING ENTRY DATA BUFFER. 

- - ♦ 



003762 
100000 

000002 
000100 
002314 
000000 
000002 
000004 
000006 
000010 
000012 
050546 
050712 
000016 
000020 

ooooaa 



GLDRtQi j 



000004 



050566 



000014 



408i 



50$; 



MOV 
BIT 
BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CLR 

CLR 

MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

BR 

ERRDF 



RETURN 



XRGNXT ,M4 

♦OUN.4CR4) 

401 

2CR4),R4 

♦100.BUFLEN 

♦A0RBUF,R1 

(R1)»,DESTIN(R4) 

(R1)»,D€STIN*2(R4) 

(R1),D€STIN*4(R4) 

S0URCCCR4) 

50URCO2CR4) 

S0UM:C»4(R4) 

PR01O2.PR0TOTCR4) 

#REQID. R2 

(R2)*.HEADER(R4) 

(R2)*,HEADER*2(R4) 

(R2),MEA0ER*4(R4) 

GETXNX OXRGNXT 

50$ 

21,EMSG10,ERP1 



MOVE NEXT PACKET ADORESS TO R4 

CHECK OWNERSHIP BIT 

IF DON'T OWN, BOOKKEEPING ERROR 

POINT R4 TO DATA BLOCK 

MOVE BUFFER SIZE TO BUFLEN 

MOVE AOORESS OF OEST. A0«. TO Rl 

MOVE FIRST TWO BYTE OF DEST. ADR. 

ANO BYTES THREE ANO FOUR 

ANO LAST TWO BYTES 
LEAVE BLAM< SPACE FOR SOURCE ADDR. 

SIX BYTES WORTH 

MOVE PROTOCALL TYPE INTO HEADER 
MOVE REQUEST ID HEADER LOC. TO R2 
BYTE COUNT 

FLECTION COOE CREQUEST ID) 
RECIEPT NO. 
LPDATE POINTER TO NEXT RING ENTRY 
EXIT 
TRANSMIT RING BOOKKEEPING ERROR 

TRAP CSERDF 

.WORD 21 
.WORD EMSGVO 
.WORD &RFU 



.SBTTL GET7NX GET NEXT TRANSMIT OR RECIEVE RING ENTRY 



J FACTIONAL DESCRIPTION 
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SEQ 120 



3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
J997 
3998 
3999 
4000 
4001 
40C^i 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4C20 
4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 



074262 
074262 
074266 

074272 

074274 
074274 
074300 
074304 
074306 
074310 
074312 
074316 
074320 
074322 



013701 
013702 
000404 



013701 
013702 

021302 
001403 
062713 
000401 
010113 



003754 

003770 



003752 
003766 



000012 



THIS SUBROUTINE GETS THE NEXT TRANSMIT OR RECIEVE RING 
ENTRY, IT IS ENTERED AT SEPERATE POINTS DEPENDING ON 
WHICH RING IS BEING USEO. 

INPUTS - Pi - T^€ ADDRESS OF THE RING POINTER TO BE UPDATED. 

OUTPUTS • THE RING POINTER IS UPDATED TO POINT TO THE NEXT AVAILABLE 

ENTRY, 



CALLING PROCEDURE - CALL GETXNX #P1 

CALL GETRNX OPl 

SIDE EFFECTS - NONE 



l FOR TRANSMIT UPDATES 
j FOR RECIEVE UPDATES 



REGISTER USAGE - Ri POINTS TO THE FIRST ENTRY IN THE RING 

R2 POINTS TO THE LAST ENTRY IN THE RING 
R3 IS THE ADDRESS OF THE RING POINTER TO BE UPDATED 



- f 



GETRNX t 


♦ 






MOV 


RRGSRT.R1 




MOV 


RRGLST.R2 




BR 


GETCOM 


GETXNX s 


» 






MOV 


XRGSRT.R1 




MOV 


XRGLST,R2 


GETCOM; 


PIPOP 


R3 




CMP 


(R3>,R2 




BEQ 


15$ 




ADO 


♦10,. (R3) 




BR 


25$ 


15$: 


MOV 


R1.CR3) 


25* j 


RETURN 





» MOVE FIRST RING ENTRY TO Rl 
» MOVE LAST RING ENTRY TO R2 
I GO TO COMMON CODE 



I MOVE FIRST RING ENTRY TO Rl 

I MOVE LAST RING ENTRY TO R2 

I GET ADDRESS OF RING POINTER IN R3 

I SEE IF POINTER POINTS TO LAST RING 

t IF YES BRANCH 

I ELSE, ADD E.4TRY LENGTH 70 POINTER 

j EXIT 

} POINT POINTER TO FIRST ENTRY IN RING 



.SBTTL BLDBUF BUILD MESSAGE BUFFERS 

FUNCTIONAL DESCRIPTION 

THIS SUBROUTINE CREATES A MESSAGE BUFFER TO BE USED 
FOR TRANSMISSION. 

INPUTS - PI - BUFFER LOCATION TO PUT BUILT MESSAGE 

IMPLICIT - PISIZE CONTAINS THE SIZE TME BUFFER IS TO BE 

P$TYPE CONTAINS THE MESSAGE TYPE 
OUTPUTS - IMPLICIT - BUFFER STARTING Af LOCATION PI CONTAINS A 

MESSAGE P$SIZE BYTES LONG USING THE MESSAGE 

TYPE SPECIFIED BY P$TYPE. 

CALLING PROCEEDURE - CALL BLDBUF PI 

SIDE EFFECTS - NONE 

REGISTER USAGE * Rl POINTS TO THE NEXT BYTE OF STORED MESSAGE TO BE BUILT 
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SEQ 121 



4029 
4030 
4031 
4032 
4033 
4034 
4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 



074324 
074324 
074326 
074332 
074334 
074340 
074342 
074346 
074352 
074356 
074360 
074366 
074370 
074374 
074400 
074402 
074404 



013702 
006302 
013704 
060304 
016201 
005037 
005237 
112123 
026237 
001004 
016201 
005037 
020304 
001363 



002370 

002372 

003316 
050542 

050542 

003300 050542 

003316 
050542 



BLOBUF . 


♦ 
* 






P$POP 


R3 




MOV 


P$T?P£,R2 




ASL 


R2 




MOV 


P$SI2E»R4 




ADO 


R3.R4 




MOV 


MSGADCR2).R1 




CLR 


COUNT 


10$$ 


INC 


COUNT 




MOVB 


CRn*,rR3)* 




CMP 


MSGCNTCR2), COUNT 




BNE 


20$ 




MOV 


MSGADCR20,R1 




CLR 


COUNT 


20$: 


CMP 


R3.R4 




BNE 


10$ 



RETURN 



IN THE MESSAGE BUFFER, 
R2 • (MESSAGE TYPE X 2), USED AS OFFSET FOR POINTERS 
R3 POINTS TO THE NEXT BYTE OF TME BUFFER UNDER CONSTRUCTION 
R4 POINTS TO THE LAST BYTE OF THE BUFFER UNDER CONSTRUCTION 



PUT BUFFER ADDRESS INTO R3 

PUT MESSAGE TYPE INTO R2 

MULTIPLY BY 2 

PUT SIZE INTO R4 

MAKE R4 ■ LAST BYTE OF BUFFER 

POINT Rl TO FIRST BYTE OF STORED MESSAGE 

CLEAR BYTE COLNTER 

COUNT NO. OF BYTES COPIED 

PUT BYTE IN BUFFER 

ARE WE AT END Of STORED MESSAGE 

IF NO. CHECK IF DONE 

ELSE, POINT n\ TO BEGINING 

ANO CLEAR COUNTER 
IS BUFFER FILLED? 

IF NO, LOOP 

ELSE, RETURN 
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SEQ 122 



4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
4090 
4091 
4092 
4093 
4094 
4095 
4096 



4097 
4094 
4099 
4100 
4101 
4102 
4103 



074406 
074406 



074414 
074416 

074422 
074424 
^74426 
074430 
074434 
074442 
074444 
074444 
074446 
074450 
074452 
074456 
074462 
074464 
074466 
074472 
074474 
074476 
074500 
074502 
074510 
074512 



005004 
005037 

005204 
121213 
001421 
005237 
022737 
002413 

011346 
011246 
010446 
012746 
012746 
010600 
104415 
062706 
005202 
005C03 
005301 
001350 
022737 
001412 



.SBTTL DATCMP COMPARE DATA SUFFERS 



- - f 



050550 



050550 
000005 



050550 



FUNCTIONAL DESCRIPTION 

THIS SUBROUTINE COMPARES TWO DAT*, SUFFERS BYTE BY BYTE. 
IF COMPARISON ERRORS OCCURED, LOCATION, EXPECTED DATA 
AND RECIEVED DATA ARE PRINTED OUT FOR THE FIRST FIVE 
ERRORS. THE TOTAL NUMBER OF ERRORS IS ALSO PRINTED. 

INPUTS - PI - THE SIZE TIN BYTES) OF THE BUFFER TO BE COMPARED. 

P2 - THE ADDKESS OF BUFFER TO COMPARE OTHER BUFFER AGAINST. 
P3 - THE ADDRESS OF THE SECOND BUFFER. 

OUTPUTS - P4 - THE NUMBER OF COMPARISON ERRORS. 

CALLING PROCEDURE - CALL DATCMP P1.P2.P3 

PI POP P4 

SIDE EFFECTS - NONE. 

REGISTER USAGE - Rl CONTAINS THE COMPARE SIZE 

R2 CONTAINS THE ADDRESS OF THE BYTE BEING COMPARED IN BUFFER 1 

R3 CONTAINS THE ADDRESS OF THE BYTE BEING COMPARED IN BUFFER 2 

R4 CONTAINS THE BYTE OFFSET (BYTES FROM BEGINING OF BUFFER 



PUT COMPARE SIZE IN Rl 
BUFFER 1 ADDRESS IN R2 AND 
BUFFER 2 ADDRESS IN R3 

INITIALIZE BYTE OFFSET 
AND ERROR COUNTER 

INCREMENT OFFSET COUNTER 
COMPARE SUFFERS 

IF SAME. BRANCH 
INCREMENT ERROR COUNTER 
IF MORE THAN 5 ERRORS. 
OON' T PRINT MESSAGE 
PRINT ERROR MESSAGE 

MOV 



DATCMP:: 




PiPOP 


R1.R2.R3 , 


CLR 


R4 J 


CLR 


TEMP , 


10$: INC 


R4 » 


CMPB 


CR2).(R3) t 


BEQ 


201 , 


INC 


TEMP , 


CMP 


05 .TEMP , 


BLT 


201 t 


PPINTX 


0CMPER1.R4,CR2).CR3) j 



066754 
000004 



000012 



201; 



000000 050550 



INC 


R2 


INC 


R3 


DEC 


Rl 


BNE 


101 


CMP 


00. TEMP 


BEQ 


301 


PRINTX 


OCMPErtf.TEMP 



INCREMENT BUFFER 1 
INCREMENT BUFFER 2 



MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
POINTER 
POINTER 



(R3).-CSP) 

(R2),-(SP) 

R4. (SP) 

OCMPERl.-(SP) 

04 , - ( SP ) 

SP.RO 

C*PNTX 

012, SP 



DECREMENT COMPARE SIZE 

IF NOT FINISHED. GO BACK FOR MORE 
WERE THERE ANY ERRORS? 

IF NO, EXIT 
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SEU 123 





074512 


013746 


050550 




074516 


012746 


067051 




074522 


012746 


000002 




074526 


010600 






074530 


104415 






074532 


062706 


000006 


4104 


074536 






4105 








4106 








4107 








4108 








4109 








4110 








nil 








4112 








4113 








4114 








4115 








4116 








4117 








4118 








4119 








4120 








4121 








4122 








4123 








4124 








4125 








4126 








4127 








4128 








4129 








4130 








4131 








4132 








4133 








4134 








4135 








4156 








4137 








4138 


074544 






4139 


074550 


023727 


050550 


4140 


074556 


001002 




4141 


074560 






4142 


074562 


000402 




4143 


074564 






4144 


074570 


012701 


002656 


4145 


074574 


O05711 




4146 


074576 


001415 




4147 


074*00 


021127 


17777/ 


4148 


074604 


001454 




4149 


074606 






4150 


074620 






4151 


074622 


001412 




4152 


074624 


062701 


000026 


4153 


074630 


O00761 




4154 


074632 


011211 





30$: 



RETURN TEMP 



I RETURN WITH ERROR COUNT ON STACK 



MOV TEMP.-CSP) 

MOV *CMPER?,-(SP) 

MOV 02,-CSP) 

MOV SP.RO 

TRAP CIPNTX 

ADD ^6 f SP 



.SBTTL WRITES WRITE DATA ONTO SUMMARY TABLE 

FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE UPDATES THE SUMMARY TABLE DATA FOR 
THE NOOES SPECIFIED IN THE CALL STATEMENT. EITHER ONE 
Oft TWO NOOES CAN UPDATED PER CALL. AFTER THE CALL. 
THE SUMMARY OATA COUNTERS ARE CLEARED. THE SUMMARY TABLE 
IS CHECKED FOR A MATCHING NOOE ADDRESS AND UPOATES THE 
DATE FOR THAT NOOE, OR ADOS THE NOOE TO THE TABLE IF IT 
DOESN'T EXIT. AN ERROR IS (SPORTED IF THE ENO OF THE TABLE 
IS REACHED. 



INPUTS - 



PI - THE NUMBER OF NOOES TO UPDATE (1 OR 2). 
P2 - THE ADDRESS OF THE FIRST NOOE ADDRESS. 
P3 - THE ADDRESS OF THE SECOND NODE ADDRESS IF PI 
BLANK IF PI - 1. 



2 OR 



OUTPUTS - THE SUMMARY TABLE IS UPDATED. 

CALLING PROCEDURE - CALL WRITES P1.P2C.P3) 

SIDE EFFECTS - THE SUMMARY COUNTERS ARE CLEARED. 

REGISTER USAGE - Rl POINTS TO THE CURRENT LOCATION IN THE SUMMARY TABLE. 

R2 POINTS TO THE NODE TO BE UPDATED' S ADDRESS. 

R3 IS SCRATCH 

R4 HOLDS THE SECOND NODE TO BE UPDATED ADDRESS. 



- - ♦ 



000001 



WRITES: 


PIPOP 


TEMP 




CMP 


TEMP.JI 




6NE 


51 




PIPOP 


R2 




BR 61 




5$: 


PIPOP 


R2,R4 


61: 


MOV 


*STATBL,R1 


7$: 


TST 


CR1) 




BEQ 


151 




CMP 


(Rl).O-l 




BEQ 


251 




CALL 


CMPADR R1.R2 




PIPOP 


R3 




BEQ 


20*. 




ADD 


*26. Rl 




BR 


71 


15$: 


MOV 


(R2),(R1) 



I SEE HOW MANY NOOES TO WRITE 
I IF ONLY ONE. GET ADDRESS 



IF TWO. GET BOTH ADDRESSES 
MOVE STATISTICAL TABLE ADDRESS INTO Rl 
SEE IF SLOT IS EMPTY 

IF YES, BR 
SEE IF TABLl FULL 

IF YES, ERROR 
LOOK FOR MATCHING ADDRESS 

IF YES BR 

ELSE, POINT Rl TO NEXT ENTRY 

AND CHECK AGAIN 
ADD NEW ADDRESS TO TABLE 
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SEQ 124 



4155 


074634 


016261 


000002 000002 


4156 


074642 


016261 


000004 000004 


4157 


074650 


062701 


000006 


4158 


074654 


063721 


050500 


4159 


074660 


063721 


050476 


4160 


074664 


063721 


050502 


4161 


074670 


063721 


050504 


4162 


074674 


063721 


050506 


4163 


074700 


103001 




4164 


074702 


005511 




4165 


074704 


062701 


000002 


4166 


074710 


063721 


050510 


4167 


074714 


103001 




4168 


074716 


005511 




4169 


074720 


062701 


000002 


4170 


074724 


005337 


050550 


4171 


074730 


001414 




4172 


074732 


010402 




4173 


074734 


000715 




4174 


074736 








07 736 


012746 


053706 




_ 4742 


012746 


053560 




074746 


012746 


000002 




074752 


010600 






074754 


104417 






074756 


062706 


000006 


4175 


074762 


005037 


050500 


4176 


074766 


005037 


050476 


4177 


074772 


005037 


050502 


4178 


074776 


005037 


050504 


4179 


075002 


005037 


050506 


4180 


0750O6 


005037 


050510 


4181 


075012 






4182 









20$: 



22$: 



23$: 



25$: 



MOV 


2(R2),2(R1) 


MOV 


4(R2).4(Rl) 


ADO 


*6.R1 


ADO 


S.NREC.CRD* 


ADD 


S.REC.CRD* 


ADO 


S.LEN.CRD* 


ADD 


S.COMP.CRD* 


ADD 


S. BYTE. CRD* 


BCC 


22$ 


ADC 


CRD 


ADD 


♦2.RI 


ADD 


S.XFER.CRD* 


BCC 


23$ 


ADC 


CRD 


ADD 


*2.R1 


DEC 


TEMP 


8EQ 


30$ 


MOV 


R4.R2 


BR 


6$ 


PRINTF 


OTABFUL.OSUNM 



30$: 



CLR 


S.NREC 


CLR 


S.REC 


CLR 


S.LEN 


CLR 


S.COMP 


CLR 


S.BYTE 


CLR 


S . XFER 


RETURN 





SIX BYTES WORTH 

POINT Rl TO DATA 
UPDATE SUMMARY DATA, RECEIVES NOT COMPLETE 
RECEIVES COMPLETE 
LENGTH ERRORS 
COMPARE ERRORS 
BYTES COMPARED 
IF OVERFLOW. INCREMENT NEXT WORD 

POINT Rl TO NEXT DATA 
BYTES TRANSFERED 

IF OVERFLOW, INCREMENT NEXT WORD 

POINT Rl TO NEXT DATA 
DECR NO OF NODES COUNTER 
IF NO K0*£ t EXIT 
POINT R2 TO NEXT NOOE 

AND UPDATE SUMMARY DATA 
PRINT TABLE FULL MESSAGE 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 
CLEAR SUMMARY DATA COUNTERS 



♦SUflM.-CSP) 

OTABFUL, CSP) 

♦2.-CSP) 

SP.RO 

C$PNTF 

06. SP 



110 
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SEQ 125 



4184 
aiS5 
4186 
4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
^213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
42?) 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 



075014 
0750X4 
075016 
075020 
075022 
075026 
075032 
075036 
075042 
0750SO 
075054 
075056 
075060 
075062 
075064 
075070 
075072 
075074 
075076 
075100 
075102 
075110 
075114 
075116 
075120 
075122 
075124 
075126 

075130 
075132 
075134 
075136 
075140 



010546 
010102 
062702 
012703 
012704 
012705 
012737 
005037 
161411 
005612 
161512 
002403 
005237 
000771 
062411 

005512 
062412 
022525 
052737 
113723 
005327 
000000 
001353 
105023 
012605 



1450O0 
035632 

160400 
002765 
113200 



000002 
075200 
075130 
075132 
000012 
075214 



075214 



075116 



000060 
075214 



075214 



.SBTTL BINDEC CONVERT A 32 BIT BTNARY NUMBER TO DECIMAL 

FUNCTIONAL DESCRIPTION} 

THIS SUBROUTINE CONVERTS A 32 BIT BINARY NUM8U* TO 
A DECIMAL NUMBER REPRESENTED AS AN ASCIZ STRING, 

INPUTS - PI - THE AODMESS OF THE FIRST WORD OF BINARY DATA 

BITS 0-15, THE SECOND WORD, BITS 16-31, IS 
EXPECTED TO IMMEDIATELY FOLLOW THE FIRST WORD. 

OUTPUTS - THE ASCII STRING WILL BE LOCATED STARTING AT DECSTR 
SIDE EFFECTS - NONE 

REGISTER USAGE - Rl POINTS TO BITS 0-15 OF BINARY DATA 

R2 POINTS TO BITS 16-31 OF BINARY DATA 

R3 POINTS TO THE OUTPUT STRING 

R4 POINTS TO THE POWERS OF 10 TABLE 

- - ♦ 



; PUT ADDRESS OF BINARY UORO INTO Rl 

i PUT ADDRESS OF SECONO WORD INTO R2 

i PUT ADDRESS OF OUPUT STRING INTO R3 
i ADDRESS OF TEN POWER TABLE 



j CLEAR PARTIAL COUNTER 
l SUBTRACT 10 POWER 



i BRANCH IF 10 POWER TOO LARGE 

j ELSE ADD 1 TO PARTIAL 

» LOOP 

; RESTORE BINARY WORDS 

j AND POINT R4 TO NEXT TABLE ENTRIES 



i CHANGE PARTIAL TO ASCII 

i ANO PUT INTO OUTPUT STRING 

I HAVE WE DONE ALL 10 DIGITS 

i IF NO. BRANCH 

I IF YES, TERMINATE WITH ZERO 



j 1.0 E09 
I 1.0 E08 
I 1.0 E07 



BINDEC s 


. 






PI POP 


Rl 




MOV 


RS.-CSP) 




MOV 


R1.R2 




ADO 


♦2.R2 




MOV 


*0ECSTR,R3 




MOV 


0TENPWR.R4 




MOV 


♦TENPWR*2,R5 




MOV 


*10. ,4$ 


li: 


CLR 


PART 


2*: 


SUB 


CR4),CRn 




SBC 


CR2) 




SUB 


(R55.CR2) 




BLT 


3$ 




INC 


PART 




BR 


2$ 


3$: 


ADD 


(R4)*,CR1) 




ADC 


(R2) 




ADD 


CR4)>.CR2) 




CMP 


(R5)*,(R5)» 




BIS 


♦'0,PART 




MOVB 


PART.CR3)* 




DEC 


(PC)* 


41; 


.WORD 







BNE 


1* 




CLRG 


<R3)» 




MOV 


(SP)*,R5 




RETURN 




TENPWflt 


145000 

35632 

160400 

2765 

113200 
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SEQ 126 



4241 
4242 
4243 
42*4 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
4255 
4256 
4257 
4258 
4259 



075142 
075144 
075146 
075150 
075152 
075154 
075156 
075160 
075162 
075164 
075166 
075170 
075172 
075174 
075176 

075200 
075214 



000230 
041100 
000017 
103240 
000001 
023420 
000000 
001750 
000000 
000144 
000000 
000012 

cooooo 

000001 
000000 



000000 



230 

041100 

17 

103240 

1 

23420 



1750 



144 



12 



1 



OECSTR::.BLKB 12, 
PART:: .WORD 



i 1,0 E06 

t 1.0 E05 

j 1.0 E04 

; 1.0 E03 

I 1,0 E02 

; 1.0 E01 

I 1.0 EOO 



; 12 BYTES FOR ASCIZ OUTPUT STRING 
; PARTIAL COUNTER 
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SEQ 127 



4261 
4262 
4263 
4264 
4265 
4266 
4267 
4266 
4269 
4270 
4271 
4272 
4273 
42 74 
4P.75 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 



075216 
075216 
075222 
075226 
075232 
075234 
075236 
075240 
075244 
075246 
075250 
075252 
075256 
075262 
075264 



075266 
075270 
075272 
075274 
075276 
075300 
075302 
075304 
075306 
075310 
075312 



075314 
075316 
075320 
075324 
075326 
075330 
075334 



01370< 
013703 
121327 

003405 
1C5714 

001441 
121327 
003023 
111301 
006301 
016101 
062701 
004 711 
000760 



000114 
000134 
000152 
000162 
000204 
000270 
000612 
000656 
000270 
000256 
000?*4 



121314 
001403 
004737 
000740 
005204 
004 737 
062703 



•SBTTL COMMAND LINE TRAVERSE ROUTINES 



* f 



P$TRV SUBROUTINE 



PARSE THE COMMAND LINE SUBROUTINE 
TAKE ACTIONS (VIA ACTION TREE) AS PARSING LINE 
PARSING DIRECTIONS FROM "CLI PARSING NODES" 
REGS USED: 

Rl R5"SCRATCH 

R2-ACTI0N CODE PARAMETER FROM TREE 
R3-PARSE TREE POINTER 
R4 -INPUT STRING POINTER 
CALLING SEQUENCE: 

JSR PC.PJTRV 



P$NUM-NUMERIC CODE FROM DATA 



003144 
003146 
000003 



000013 



075266 

075266 



075364 



075344 
000004 



PJTRV; 








MOV 


P$8UFA,R4 




MOV 


PUREE, R3 


P$TR5; 


CMPB 


(R3).« 




BLE 


51 




TSTB 


CR4) 




BEQ 


PIEXXT 




CMPB 


(R3),«U. 




BGT 


20$ 


5$: 


MOVB 


(R3),R1 




ASL 


Rl 




MOV 


lOURn.Rl 




ADD 


$10$, Rl 




JSR 


PC.(Rl) 




BR 


PITR5 


10$: 


.WORD 


TRVERR-10* 




.WORD 


TRVF.XI-10* 




.WORD 


TRVBR-lOt 




.WORD 


TRVBIF-10* 




.WORD 


TRVSPA-10* 




.WORD 


TRVNUM-10S 




.WORD 


TRVALP-lOi 




.WORD 


TRVALN-10* 




. NORO 


TRV0CT-10* 




.WORD 


TRVDEC-10* 




.WORD 


YRVSTR-10* 


{NOT A 


SPECIAL 


CODE 


20$: 


criPB 


(R3) t CR4'J 




BEQ 


22 i 




JSR 


PC.TRVBRC 




BR 


P$TR5 


22$! 


INC 


R4 




JSR 


PC.TRVACT 




ADD 


04, R3 



j SEE IF ONE OF FIRST THREE SPECIAL CODES 

j IF YES. DON'T CHECK INPUT STRING 

I SEE IF ANY CHARS LEFT IN INPUT STRING 

;BR IF NO 

;SEE IF SPECIAL CLI CHAR CODE OR ASCII 

j BR IF REGULAR ASCII CHAR. 

jGET SPECIAL CHAR COOE INTO R5 

j BUILD TRAVERSE ROUTINE ADDRESS 

;JSR TO SPECIAL CLI TRAVERSE ROUTINE 
jGO SEE IF MORE OF STRING LEFT 



TABLE FOR "CLI FUNCTIONS" 



? TRAVERSE 

tl 

;2 

;3 

;4 

»5 

iS 

;7 

;8 

»9 

iio 



j SEE IF FIRST CHAR OF STRING IS A MATCH 

iBR IF A MATCH 

I IF NOT A MATCH. GO TAKE MISS BRANCH 

j THEN GO BACK PT'G TO MISS NODL 

;IF A MATCH, INCR. CHAR POINTER 

: GO DO ACTION DEFINED BY 

1 ACTION CODE IN CLI NODE, THEN 



L10 
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SEQ 128 



4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 

4356 

4357 

4358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4 369 

4370 

4371 

4372 

4373 

4374 



075340 
075342 



075344 
075350 
075554 
075360 
075362 



075364 

075370 
075372 



075374 
075400 



075402 
075406 
075414 
075416 



075422 

075426 
075432 
075434 



075440 
075444 



075450 
075454 
075460 
075462 
075466 



075472 
0754 74 
075500 
075502 
075504 
075506 

075510 
075514 



00073? 

000207 

116302 
042702 
013701 
004711 
000207 



016301 
060103 
000207 



062703 
000207 



004737 
112737 
005726 
000137 



004737 
105037 
005726 
000137 



004737 
000137 



004737 
105737 
001402 
000137 
000137 



005001 
121427 
001003 
005204 
005201 
000772 

121427 
001003 



000001 
177400 
003150 



000002 



000004 



075344 
177777 

075342 



075344 
003161 

075342 



075344 
075364 



075344 
003161 

075364 
075374 



000011 



003161 



BR P*TR5 
P*£XITi RTS PC 



{ 



{GOTO USER ACTION ROUTINE 
TRVACTj MOVB 1CR3),R2 

BIC 0177400, R2 
MOV PJACT.Rl 

JSR PC.(Rl) 
RTS PC 



000040 



{TAKE BRANCH 


IN TREE 


TRVBRC: 


MOV 


2(R3) t Rl 




ADO 


R1,R3 




RTS 


PC 


{NO BRANCH TAKEN 


TRVNOB; 


ADD 


«4,R3 




RTS 


PC 


{ERROR 


HANOLING 


TRVERR; 


JSR 


PC.TRVACT 




MOVB 


«-l,P*GDBD 




TST 


(SP>* 




JMP 


P*EXIT 


{EXIT ACTION 


CODE 


TRVEXIj 


JSR 


PC.TRVACT 




CLRB 


PIGDBD 




TST 


CSP>* 




JMP 


P*EXIT 


{BRANCH 


ACTION CODE 


TRVBR: 


JSR 


PC.TRVACT 




JMP 


TRVBRC 


{BR.'.NCH 


-IF ACTION CODE 


TRVBIF; 


JSR 


PC.TRVACT 




TSTB 


PJGD6D 




BEQ 


1* 




JMP 


TRVBRC 


1$: 


JMP 


TRVNOB 


: SPACE 


ACTION 


1 CODE 


TRVSPA: 


CLR 


Rl 


lit 


CMPB 


CR4) t 011 




BNE 


2$ 




INC 


R4 




INC 


Rl 




BR 


1$ 


2*1 


CMPB 


(R4),tf40 




BNE 


10$ 



{ ADJUST PTR TO NEXT CLI NCDE 



I RETURN FROM PARSER 



{GET ACTION CODE FROM CLI NODE 
{CLEAR ANY SIGN EXTENSION 
{GET ADDRESS OF CLI ACTION ROUTINE 
{GO DO ACTION DEFINED BY CODE 
{RETURN TO CALLING CODE 



(GE* BRANCH DISPLACEMENT FROM TREE 
{ ANO POINT R3 TO THE "MISS" NODE 
j RETURN TO P$TRV 



{THINGS OK. UPDATE R3 TO POINT TO NEXT 
j NODE AND RETURN TO PITRV 



{TAKE ERROR ACTION 

{SET ERROR RETURN FLAG 

j GET RID OF "JSP PUSH TO TRVERR" 

{RETURN DIRECT TO EXIT OF PURV ROUTINE 



{TAKE EXIT ACTION 

{SET GOOD/BAD FLAG TO "SUCCESS CO)" 
tGET RID OF "JSR PUSH TO TRVEXI" 
{RETURN DIRECT TO EXIT OF PURV ROUTINE 



jGO TAKE BRANCH ACTION 



{SEE IF P$GDBD SET OR CLEARED BY ACTION 
{IF CLEAR FALL THRU TO NEXT NODE 
{ELSE TAKE THE "MISS" BRANCH 
{JUST UPDATE TO NEXT NODE IF THINGS OK 



{CLEAR "SPACE OR TAB FOUND" FLAG 

j SEE IF CHAR, IN CMD LINE- TAB 

I BR IF NO, NOT A TAB 

tINC INPUT STRING POINTER 

{INDICATE A TAG FOUND 

jGO CHECK NEXT CHAR 

jSEF. IF CHAR. IN CMO LINE- SPACE 

iBR IF NO, NON- SPACE OR NON-TAB CHAR. 
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MIO 



4375 
4376 
4377 
4378 
4379 
4380 
4381 
4CS2 
43".; 
4384 
4385 
4386 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 



4408 
4409 
4410 
44U 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 



075516 
075520 
075522 
075524 
075526 
075530 
075534 
075540 



075544 
075552 
075556 
075556 
07^564 
OV 5566 
075570 
075574 
075576 
075600 
075604 
075606 
075614 

075616 
075622 
075624 
075630 
075632 
075640 
075642 
075646 
075650 
075650 
075654 
075660 
075662 
075664 
C75670 
075676 

075700 
075704 
075706 
075710 
075712 

075714 
075716 
075720 
075722 
075724 
075730 
075732 
075736 
075742 
075744 



005204 
005201 
000764 
005701 
001404 
004737 
000137 
000137 



012737 



012737 

005001 
121427 
001001 
000406 
121427 
001004 
112737 
005204 

121427 
002434 
121427 
003426 
123727 
001417 
121427 
00302<? 

012746 
012746 
010600 
104417 
062706 
112737 
000475 

121427 
003003 
005204 
005201 
000741 

005701 
001465 
010405 
160105 
005037 
112502 
162702 
006337 
103440 
013737 



075344 
075374 
075364 



000012 
075564 

000010 

000053 

000055 
177777 

000060 
000067 
003156 
000071 



052554 
000001 



000004 
177777 



000071 



10$ j 



15$: 
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INC R4 

INC Rl 

BR II 

TST Rl 

BEQ 15$ 

JSR PC.TRVACT 

JMP TRVNOB 

JMP TRVBRC 



SEQ 129 



003156 
003156 



TRVDEC: 

TRVOCT: 
TRVNUM; 
TRVNMA: 



10$ 



003157 



11$ 
1$: 



000012 



003161 



003154 

000060 
003154 

003154 003152 



MOV 01O.,P$RADX 

JMP TRVNMA 

i (GAME AS TRVNUM SINCE DEFAULT 

MOV *8.,P$RADX 

PUSH R5 

CLR Rl 

CMPB (R4),0»* 

BNE 10$ 

BR 11$ 

CMPB CR4).#*- 

BNE 1$ 

MOVB <M,,P$RA0X*1 

INC R4 

CMPB (R4),060 

BLT 2$ 

CMPB (R4),$67 

BLE 13$ 

CMPB P$RADX,*10, 

BEQ 12$ 

CMPB (R4),*71 

BGT 2$ 

PRINTF tfCLIBRX 





M0V8 


0-1.PIGDBD 




BR 


5$ 


12$: 


CMPB 


CR4),*71 




BGT 


2$ 


13$: 


INC 


R4 




INC 


Rl 




BR 


1$ 


2$: 


TST 


Rl 




BEQ 


5$ 




MOV 


R4,R5 




SUB 


R1.R5 




CLR 


P$NUM 


3$: 


MOVB 


(R5)*,R2 




SUB 


060, R2 




ASL 


P$NUM 




BCS 


7$ 




MOV 


P$NUM,P$CNT 



j INC INPUT STRING POINTER 

j INDICATE A SPACE FOUND 

j GO CHECK NEXT CHAR 

j SEE IF ANY SPACES OR TABS FOUND 

{BR IF NO, TAKE NO ACTION 

j GO TAKE ACTION IF ANY FOUND 

tJUST GO UPDATE R3 TO NEXT NODE IF 

j TAKE BRANCH CMISS) IF NONE FOUND 



{USE DECIMAL AS RADIX AND ASSUME 



OK 



RADIX IS OCTAL) 
{USE OCTAL AS RADIX 



AND ASSUME 



»CLEAR DIGIT COUNTER 

{SEE IF THERE'S A ♦ SIGN THERE 

{ BR IF NO 

5 ELSE PIRADX ALREADY SAYS ♦, oUST BR 

{SEE IF THERE'S A - SIGN THERE 

{ BR IF NO 

{SET "MINUS FLAG" CHI BYTE OF P$RADX) 

{BUMP R4 TO POINT TO FIRST CHAR 

{SEE IF CHAR. LESS THAN A "0" 

{BR IF YES (NOT NUMERIC) 

{SEE IF CHAR. GREATER THAN A "7" 

{ BR IF YES 

{SEE IF IN DECIMAL MODE 

{ BR IF YES (CAN USE HIGHER LIMIT) 

{SEE IF DIGIT WAS A 8 OR 9 

;BR IF NON -NUMERIC 

{ELSE WAS A 8 OR 9 WHEN IN OCTAL RADIX 



MOV 
MOV 
MOV 
TRAP 
ADD 
SET ERROR RETURN FLAG 
PRINT ERROR AND TAKE MISS 



*CLIBRX,-CSP> 
Ol.-CSP) 

SP.RC 

C$PNTF 

$4,SP 



IQ ll 



SEE IF CHAR. GREATER THAN A 

BR IF YES (NOT NUMERIC) 

UPDATE CMD LINE PTR TO NEXT CHAR, 

INDICATE A NUMERIC FOUND 

GO LOOK AT NEXT CHAR. 

SEE IF FOUND ANY NUMERICS 

BR IF NO, TAKE "MISS" BRANCH 

GET POINTER TO START OF NUMERIC STRING 

CLEAR LOC, WHERE VALUE WILL BE STORED 
GET ASCII CHAR AND CONVERT IT TO A * 

SHIFT CURRENT VALUE TO MAKE ROOM 

ERROR IF NUMBER TOO BIG 

SAVE FOR LATER IN CASE DECIMAL RADIX 



:ZUACBO DEUNA NI EXERCISER DIAG MACRO M1200 
JOMMAND LINE TRAVERSE ROUTINES 



NIO 



4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4430 
444C 
4441 
4442 
4443 
4444 
4445 
4446 



4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 



075752 
075756 
075760 
075764 
075766 
075774 
075776 
076004 
076006 
076012 
076014 
076016 
076020 
075024 
076026 
076032 
76034 
076040 

076044 
076044 
076050 
076054 
076056 
076060 
076064 
076072 
076074 



076100 
076102 
076106 
076110 
076114 
076116 
076120 
076122 
076124 
076126 
076130 
076134 
076140 

076144 
076146 
076152 
076154 
076160 
076162 
076161 
076166 
076170 
0763 74 
076176 
07620c? 
076204 



006337 
103432 
006337 
103427 
123727 
001004 
063737 
103417 
060237 
103414 
005301 
001344 
105737 
001402 
005437 

00*737 
000137 



012746 
012746 
010600 
104417 
062706 
112737 



005001 
121427 
002406 
121427 
003003 
005204 
00520\ 
000(67 
005701 
001404 
004737 
000137 
000137 

005001 
121427 
002417 
121427 
003003 
005204 
005201 
000767 
121427 
002406 
121427 
OOi >03 
005^04 



003154 
003154 
003156 
003152 
003154 

003157 

003154 

075344 
075374 



052527 
000001 



000004 
177777 



000137 075364 



000101 
000132 



075344 
075374 
075364 



000060 
000072 

000101 
000132 



000012 
003154 



4${ 



15$: 



7$; 
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ASL 


P$NUM 


BCS 


7$ 


ASL 


P$NUM 


BCS 


7$ 


CMPB 


P$RADX,#10. 


8NE 


4$ 


ADD 


P$CNT,P$NUM 


BCS 


7$ 


ADD 


R2,P$NUM 


BCS 


7$ 


DEC 


Rl 


BNE 


3$ 


TSTB 


P$R*DX+1 


DEQ 


15$ 


NEG 


P$NUM 


POP 


R5 


JSR 


PC.TRVACT 


JMP 


TRVNOB 


PRINTF 


0CLINBG 



SEQ 130 



003161 MOVB 

5$: POP 

JMr 



TRVALPj CLR 



1$ 



2$ 



3$ 



TRVALN: 
10$! 



1$ 



CMPB 

BLT 

CMPB 

BGT 

INC 

TNC 

BR 

TST 

EEQ 

JSR 

JMP 

JMP 

CLR 

CMPB 

BLT 

CMPB 

BGT 

INC 

INC 

BR 

CMPB 

BLT 

CMPB 

BGT 

INC 



*-l,P$GDBD 

R5 

TRVBRC 



Rl 

CR4),»101 

2$ 

(R4),#132 

2$ 

R4 

Rl 

1$ 

Rl 

3$ 

PC.TRVACT 

TRVNOB 

TRVBRC 

Rl 

(R4),«60 

2$ 

CR4),/>72 

1$ 

R4 

Rl 

30$ 

CR4),0101 

2$ 

(R4),«132 

2$ 

R4 



j ERROR IF NUMBER TOO BIG 

{ERROR IF NUMBER TOO BIG 
j SEE IF DECIMAL RADIX 
;BR IF NOT EQUAL 

j ERROR IF NUMBER TOO BIG 

{ERROR IF NUMBER TOO BIG 



{SEE IF NUM WAS PRECEDED BY A - SIGN 

I BR IF NO 

! ELSE NEGATE THE NUMBER BEFORE LEAVING 

{RESTORE R5 

{SINCE NUMERIC FOUND, GO TAKE ACTION 

jGO POINT R3 TO NEXT NODE 



{PRINT NUM8ER TOO BIG ERROR 

MOV 
MOV 
MOV 
TRAP 
ADD 

{SET ERROR RETURN FLAG 

{RESTORE R5 

{TAKE "MISS" BRANCH 



$CLINBG # ~CSP) 
♦l.-CSP) 

SP.RO 

CIPNTF 

44.SP 



{CLEAR ALPHA POUND FLAG 

{SEE IF CHAR. LESS THAN A "A" 

{BR IF YES (NOT ALPHA) 

{SEE IF CHAR. GREATER THAN A "Z" 

{ BR IF YES CNOT ALPHA) 

{UPDATE CMD LINE PTR TO NEXT CHAR 

{INDICATE AN ALPHA WAS FOUND 

i GO LOOK AT NEXT CHAR. 

{SEE IF ANY ALPHA'S WERE FOUND 

jBR IF NO 

j IF ANY FOUND TAKE ACTION 

{THEN UPDATE R3 TO NEXT NODE -NO BRANCH 

{NONE FOUND, TAKE MISS BRANCH 

{CLEAR ALPHANUM FOUND FLAG 

I SEE IF CHAR, LESS THAN A "0" 

{BR IF YES CNOT NUMERIC OR ALPHA) 

iSEE IF CUAR. GREATER THAN A "9" 

{BR IF YES (NOT NUMERIC) 

{UPDATE CMO LINE PTR TO NEXT CHAR, 

{INDICATE A NUMERIC FOUND 

{GO LOOK AT NEXT CHAR. 

{SEE IF CHAR. LESS THAN A "A" 

jBR IF YES (NOT ALPHA) 

{SEE IF CHAR. GREATER THAN A "Z" 

{BR IF YES (NOT ALPHA) 

{UPDATE CMD LINE PTR TO NEXT CHAR 
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Bll 



4479 
4460 
4481 
4432 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4496 
4499 
4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 
4532 
4553 
4534 
4535 



076206 
076210 
076212 
076214 
076216 
076222 
076226 



07* 32 
076J34 
076236 
076240 
076244 
076250 
076252 
076254 
076256 
076260 
076262 
076264 
076270 
076272 
076274 

076276 
076302 
076304 
076306 
076310 
076314 
J6320 

076322 
076324 



005201 

000756 

005701 

001404 

004737 075344 

000137 075374 

000137 075364 



010401 
010305 
062705 
005037 
105715 
001411 
105711 
001407 
121115 
001005 
005237 
005201 
005205 
000765 

OC5737 
001407 
010104 

004737 
066305 
000207 



000006 
003152 



003152 



003152 



075344 
000004 



000137 075364 
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INC 


Rl 




BR 


10$ 


2ti 


TST 


Rl 




BEQ 


31 




JSR 


PC.TRVACT 




JMP 


TRVN06 


31: 


JMP 


TRVBRC 


TRVSYRi 


PUSH 


R5 




MOV 


R4.R1 




MOV 


R3.R5 




ADO 


♦6.R5 




CLR 


PICNT 


2$J 


T5TB 


(R5) 




BEQ 


101 




TSTB 


(Rl) 




BEQ 


101 




CMPB 


CR1),(R5) 




BNE 


101 




INC 


PtCNT 




INC 


Rl 




INC 


R5 




BR 


2* 


10»: 


TST 


PICNT 




BEQ 


151 




MOV 


R1.R4 




POP 


R5 




JSR 


PC.TRVACT 




ADO 


4(R3),R3 




RTS 


PC 


151: 


POP 


R5 




JMP 


TRVBRC 



- ♦ 



TRVAOR 



SEQ 131 



lINOICATE AN ALPHA FOUND 

l GO LOOK AT NEXT CHAR. 

I SEE IF ANY ALPHANUM'S WERE FOUND 

I BR IF NO 

» IF ANY FOUNO TAKE ACTION 

jTMEN UPDATE R3 TO NEXT NODE ^NO BRANCH 

j NONE KOUNO, TAKE MISS BRANCH 



SAVE R5 

POINT Rl TO CMO STRING 

POUNT R5 TO MATCH STRING FROM CLI NODE 

CLEAR CHAR MATCH COUNT 

SEE IF END OF MATCH STRING YET 

BR IF YES 

SEE IF ENO OF CMO LINE YET 

BR IF YES 

SEE IF CHARACTERS MATCH 

BR IF NO 

MATCH -INCREMENT MATCH COUNT 

UPDATE STRING POINTERS 

BR TO CONTINUE CHECKING CHARS. 

WHEN DONE SEE IF ANY MATCKS FOUNO 
BR IF NO, GO TAKE THE MISS BRANCH 
POINT CMO POINTER TO ENO OF STRING £ 
RESTORE R5 

IF A MATCH FOUNO. GO DO MATCH ACTION 
UPDATE R3 TO NEXT NOOE (NO BRANCH) 

(NO RETURN TWJ TRVNOB SINCE DIFFERENT 
DISPLACEMENT DUE TO MATCH STRING) 
RESTORE R5 

GO TAKE BRANCH 

(PARSED OK), -1 IF ILL CMO 



TRAVERSE COMMAND LINE INPUT ADDRESS 



THE 



THIS ROUTINE IS CALLED BY TWO DIFFERENT ACTION ROUTINES, 
NOOE ACTION ROUTINE Cf'.LS IT TO PARSE THOUGH THE NOOE 
AOORESS INPUT BY THE OPERATOR. THE OPRSEL ACTION ROUTINE 
CALLS TRVAOR TO PARSE THROUGH THE -OPERATOR SELECTED" MESSAGE 
^ICH HAS BEEN INPUT IN 1ME COMMANO LINE. FOR A N.^DE AOORESS. 
THE ROUTINE LOOKS FOR A '/' AS A OELIMETER FOR THE AOORESS. 
AND REPLACES THE / WITH A NULL BYTE FOR USE BY THE ADDRESS 
PACKING ROUTINE. WHEN CALLED BY THE OPRSEL ROUTINE, A 
IS EXPECTED AS THE OELIMETER FOR THE OPERATOR SELECTED MESSAGE. 
IF A NU.L STRING IS ENTERED, AN ERROR MESSAGE IS PRINTED. 



INPUTS • 

OUTPUTS 

COMMAND LIN*; 



R4 POINTS TO THE BEGINING OF THE ADDRESS 

OR HESSAGE IN THE COMMAND LIN£ 
SUMMARIZED IN TABLE, @£LQW 

OUTPUTS 



CALLING PROCEDURE 
REGISTER USAGE - 



Cll 

KNAKB8 P^ A T^vi^i c ^6?iRI§ G MACR0 M1200 »-"»-«« w.ss page 23 .s 

4536 
4537 
4538 
4539 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 
4551 
4552 
4553 
4554 
4555 
4556 

4557 076330 005001 TRVADRt 

4558 076332 121427 000000 1$: 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 076422 005701 301 

4576 

4579 
4580 
4581 
4582 
4583 
4584 
4585 
4586 
4587 
4588 
4589 
4590 

4591 076474 012737 QQG001 003672 35*1 

4592 - - -- 



SEQ 132 



iNPUT CONOITION 


P$GDBD 


t 


R4 POINTS TO 




CFLAG CONTAINS 


! PtflERR 


ILLEGAL CHAR. 
AOR. /ASSIST 
ADR, /TARGET 


-1 



t 

1 

! 


ILL, CHAR, 

END OF LINE 


f 

t 


CASIST 


! N/A 
f N/A 


ADR,/ 

ADR, J 

ADR, /CHAR. OR 

"OPR SEL/CHAR, j 

OTHER THAN "A"j 

"T" OR BLANK I 




• 1 


! 
! 
1 
t 

! 
! 


END OF LINE 

/ 


♦ 

! 


CTARGT 
CTARGT 


S N/A 
\ N/A 


♦ • M | 

"OPR SEL" ! 






! 

i 


CHAR. AFTER " 
CHAR, AFTER « 




OPRSEL 


• -1 

1 



JSR PC . TRVADR 

Rl IS USED AS A COLNTER TO REPORT ERROR MESSAGES 

IF NULL. STRINGS ARE ENTERED, 
R4 POINTS TO THE NEXT CHAR, IN THE COMMAND LINE 



076330 
076332 
076336 
C76340 
076344 
076546 
07*352 
07*354 
076360 
076362 
076366 
076370 
076372 
076374 
076376 
076404 
076406 
076410 
076412 
076420 
076422 
076424 
076426 
076432 
076434 
076440 
076442 
076446 
076450 
076454 
076456 
076464 
076466 
0764 72 
0764 74 
076502 



005001 
121427 
001423 
121427 
002414 
121427 
001454 
121427 
001420 
121427 
003003 
0052O4 
005201 
000756 
112737 
000464 
005701 
001772 
012737 
000456 
005701 
001764 
112714 
005204 
121427 
001764 
121427 
001412 
121427 
001756 
112737 
005304 
112714 
000747 
012737 

Q00425 



000000 
000040 
000042 
000057 
000132 



177777 003161 10* 

20$ 
000000 003672 251 



000000 
000000 
000101 
000124 

177777 003161 

000057 

000001 003672 



CLR 

CMPB 

BEQ 

CHPB 

BLT 

CMPB 

BEQ 

CMPB 

BEQ 

CMPB 

BGT 

INC 

INC 

BR 

MOVB 

BR 

TST 

BEQ 

MOV 

BR 

TST 

BEQ 

MOVB 

INC 

CMPB 

BEQ 

CMPB 

BEQ 

CMPB 

BEQ 

MOVB 

DEC 

MOVB 

b;; 

MOV 

BR 



Rl 

(R1),«0 

20$ 

(R4),+40 

10$ 

(R4) B #4£ 

40$ 

(R4),#57 

30$ 

(R4),*132 

10$ 

R4 

Rl 

1$ 

*-l,P$GDBD 

50$ 

Rl 

10$ 

♦CTARGT,CFLAG 

50$ 

Rl 

10$ 

#0,(«4) 

R4 

( R4 ) t 00 

25$ 

(R4),*'A 

35$ 

(R4),*'T 

25$ 

**1,P$GDBD 

R4 

*' /,CR4) 

25$ 

OCASIST t CFLAG 

sot 



CLEAR HEX DIGIT FOUND FLAG 
SEE IF NUL CHAR. 

IF YES, RETURN 
SEE IF ILLEGAL CHARACTER 
IF YES i BRANCH TO ERROR ROUTINE 
SEE IF CHAR. IS A • ■•• 
IF YES .BRANCH TO 40$ 
SEE IF CHAR. IS A "/" 
BRANCH IF YES 
SEE IF CHAR, GREATER THAN "F" 

IF YES. ILLEGAL CHAR, 
UPDATE CMD LINE POINTER TO NEXT CHAR. 
"\XIOATE A VALID CHAR, FOUND 
LOOK AT NEXT CHAR, 
SET ERROR FLAG 
RETURN 
SEE IF VALID CHARACTERS FOUNO 

IF NO, ILLEGAL CHAR, 
SET TARGET FLAG 
RETURN 
SEE IF VALID CHARACTERS FOUND 

IF NO. ILLEGAL CHAR, 

IF YES. REPLACE "/•• UITH NULL CHAR. 
LPDATE CMD. LINE POINTER TO NEXT CHAR, 
IS NEXT CHAR. NULL 

IF YES. TAKE DEFAULT OF TARGET 
IS NEXT CHAR, "A" 

IF YES. 3R 35$ 
IS Nf.XT CHAR, "T" 

IF YES. SET TARGET FLAG 
ELSE. SET ERROR FLAG. 
READJUST COmANO LINE POINTER 
AND REPLACE / IN CMQ LINE TQ FIX LRRQR 
SET TARGET FLAG AND RETURN 
SET ASSIST FLAG 
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SEQ 133 



45)3 
4594 
4595 
4596 
4597 
4598 
4599 



4600 
4601 
460,? 
4603 
4604 
4605 
4606 
4607 
4608 
4609 
4610 
4611 
4612 
4613 
4614 

4615 
4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
4627 
4628 
4629 



4630 
4632 
4633 
4634 
4*35 
4636 



076504 
076506 
076510 
076514 
076522 
076524 
076526 
076526 
076532 
076536 
076540 
076542 
076546 
076554 
076556 



0, r 6560 
076560 



076560 
076564 
076564 
076566 



005701 
001407 
112714 
012737 
005204 
000414 

012746 
012746 
010600 
104417 
062706 
112737 
005204 
000207 



000000 

000006 



053362 
000001 



000004 
177777 



003672 



40$ t TST Rl 

8EQ 45$ 

MOVB *0,CR4) 

MOV *OPRSEl,CFLAG 

INC R4 

BR 501 

45$ j PRINTF ONULSTR 



003163 



004737 101710 

000167 
000000 



MOVB #-l,P$MERR 
INC R4 
50$: RTS PC 



I SEE IF ANY CHARACTERS TYPED 
l IF NO, BRANCH TO 45$ 
1 ELSE. REPLACE • ■" WITH NULL 
I SET OPERATOR SELECTED FLAG 

I RE TURN 

iPRINT NULL STRING ERROR MESSAGE 

MOV ONULSTR.-CSP) 
MOV *1,-(SP) 
MOV SP.RO 
TRAP C$PNTF 
ADD 04 f SP 

jSET OPER. SELECTED MSG. ERROR FLAG 

jMOVE CMD, LINE POINTER TO NEXT CHAR. 

iRETURN 



t 



.SBTTL REPORT CODING SECTION 



1 ♦♦ 



t THE REPORT COOING SECTION CONTAINS THE 

t "PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 

I" 

BGNflPT 



L$RPT 



t********** 



it****************** * *************************************** 

THIS SECTION, WHICH IS OPTIONAL. CONTAINS THE CODE FOR PRINTING 
STATISTICAL INFORMATION GATHERED BY THE DIAGNOSTIC. IT IS 
EXECUTED BY THE OPERATOR COMMAND "PRINT" OR BY THE MACRO CALL 
"DORPT". USE THE PRINTS MACRO TO PRINT THE INFORMATION. 
L*SE FORMAT STATEMENTS AS V: THE PRINTB/PRINTX MACROS. IT IS 
THE PROGRAWER'S RESPONSIBILTY TO DEVISE AND IMPLEMENT THE 
FORM AND CONTENT OF THE STATISTICS. 



JSR 
EXIT 



PC.ACTSUM 
RPT 



.WORD 
.WORD 



J»JMP 
L10006-2 



I INSERT LOCAL STORAGE THAT IS USED ONLY 

1 DURING THE REPORT SECTION. 



Ell 
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5^36 , INSERT MESSAGES THAT ARE USED ONLY 

^6.^9 , DURING THE REPORT SECTION. 

5*52 i«w««*rf*****«iwi«i«i^^ 

4642 

4643 .EVEN 

4644 

4645 076570 ENDRPT 

076570 L 10006- 

076570 104425 L1WW< TRAp C$RPT 



CZUACBO OEUNA >II EXERCISER DIAG MACRO M1200 
PROTECTION TABLE 
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SEQ 135 



4647 
4640 
4649 
4650 
4651 
4652 
4653 

4654 076572 
076572 
4655 

4656 076572 177777 

4657 076574 177777 

4658 076576 177777 
4659 

4660 076600 

4661 

4663 

4664 

4665 

4666 

4667 

4668 

4669 

4670 

4671 

4672 

4673 



.SBTTL PROTECTION TABLE 



J ♦♦ 



j THIS TABLE IS USED BY THE RUNTIME SERVICES 
i TO PROTECT THE LOAD MEDIA. 



BGNPROT 



-1 
-1 
-1 

ENOPROT 



L«PROT: j 



lOFFSET INTO P-TABLE FOR CSR ADDRESS 

» OFFSET INTO P-TABLE FOR MASSBUS ADDRESS 

I OFFSET INTO P-TABLE FOR DRIVE NUMBER 



INSERT BYTE OFFSET FOR DATA NOTED IN COMMENTS ABOVE, (OFFSET 

REFERS TO THE NUMBER OT BYTES FROM THE BEGINNING OF A PTABLE 

ENTRY TO THE ITEM IN QUESTION.) IF THE PARTICULAR 

ITEM OOES NOT APPLY, LEAVE ENTRY AS -1. WHEN THE RUNTIME 

SERVICES EXECUTES A GPHARD, IT USES THESE OFFSETS (IF NOT 

SET TO -1) TO GET THE ITEMS AND COMPARE WITH THOSE SAVED 

IN THE XXDP* MONITOR. IF THE UNIT BEING REQUESTED MATCHES THE 

LOAD DEVICE, THE RUNTIME SERVICES RETURN AN INCOMPLETE FLAG ON 

THE GPHARD. 



sswsexS 



Gil 
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SEQ 136 



4676 
4677 
4678 
4679 
4680 
4681 
4682 
4683 

4684 
4686 
4687 
4688 
4689 
4690 
4691 
4692 
4603 
4694 
4695 
4696 
4697 
4698 
4699 
4700 
4701 
4702 
4703 
4704 
4705 
4706 
4708 
4709 
4710 
4711 
4712 
4713 



4714 
4715 

4716 

4717 

4718 

4719 

4720 
4721 

4722 



076600 
076600 



07^600 
076606 
076610 
076614 
076620 
076620 
076624 
076626 
076626 
076630 
076630 
076634 
076636 
076636 
076640 
076644 
076644 
076650 
076652 
076652 
076654 
076660 
076660 
076664 
076666 



.SBTTL INITIALIZE SECTION 



J »♦ 



l THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 

i AT THE BEGINNING OF EACH PASS. 

I-- 



BGNINIT 



LIINIT 



x the initialize cooe is executed under five conditions. there 

are supervisor event flags that are used to let the 
diagnostic know under which conoition the execution is taking 
place. the event flags are read using the "readef" macro, 
the conditions unoer which the init cooe is executed ano the 
corrrespcwoing event flags are: 

start commano ef. start 

restart command ef. restart 

continue commano ef, continue 

poweroown/powerup ef , pwr 

new pass ef.neu 

example of event flag usc: 

READER ♦fe^. START 

BCOMPLETE STARTC00E 
DURING THE INIT COOE. USE THE "GPHARD" MACRO TO OBTAIN P- TABLE 
INFORMATION FOR DEVICE TESTING. GET ONE UNIT'S INFORMATION IF 
THIS IS A SEQUENTIAL DIAGNOSTIC. GET INFORMATION ON ALL 
UNITS AVAILABLE FOR TESTING IF THIS IS AN EXERCISER, THE NUMBER 
OF LNITS AVAILABLE IS IN A HEADER LOCATION: "LIUNIT". 



022737 
001004 
005037 

000137 

012700 
104447 

103424 

012700 
104447 

103002 
000137 

012700 
104447 

103002 
000137 

012700 
104447 



000020 003672 INIT: 



003672 
100130 

000040 



000037 

100046 
000036 

100046 
000035 



CMP *CEXIT,CFLAG 

BNE INIT1 

CLR LFLAG 

JMP INICLN 

INIT1: READEF *EF. START 



BCOMPLETE START 
READEF OEF. RESTART 



I SEE IF EXIT COMMAND TYPED 

j IF NO, DO INIT COOE 

j 1LSE, CLEAR EXIT FLAG 

i ANO 00 CLEANUP 

j IF HERE BECAUSE OF "START". DO INIT 

MOV 
TRAP 



♦EF.START.RO 
CIREFQ 



BNCOMPLETE 



5$ 



5$: 



10$: 



JMP RESTRT 
READEF «€F. CONTINUE. 



BNCOMPLETE 10 $ 

JMP RESTRT 
READEF OEF.NEW 



BNCOMPLETE 15$ 



BCS 

tIF HERE BECAUSE OF "RESTART", 

MOV 
TRAP 

BCC 

j IF HERE BECAUSE OF "CONTINUE" 

MOV 
TRAP 

BCC 



START 

DO SOME INIT 
♦EF.RESTART.RO 
CJREFG 

5$ 

EXIT 

♦EF.CONTINUE.RO 

CiREFG 

10$ 



I IF HERE ON NEW PASS, SKIP SOME INIT 

MOV ♦EF.NEW.RO 
TRAP CSRLFG 



sfiwaeiH 



Hll 
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SEQ 137 



4723 
4724 
4725 
4726 



4727 
4728 
4729 
4730 



4731 

4732 
4733 
4734 
4735 



4736 

4737 
473d 
4739 
4740 
4741 
4 742 
4743 



4744 
4745 



4746 

4747 
4748 
4749 
4 750 

4751 



4752 
4753 



076666 
076670 
076674 
076700 
076706 
076706 
076710 
076714 
076722 
076730 
076734 
076734 
076740 
076742 
076744 
076744 
076746 
076752 
076760 
076762 
076762 
076766 
076770 
076772 
076772 
076774 
077000 
077006 
077014 
077022 
077030 
077032 
077032 
077036 
077042 
077044 
077046 
077052 
077056 
077056 
077062 
077064 
077066 
077066 
077070 
077074 
077100 
077104 
077110 
077110 
077114 
077120 
077124 
077130 
077132 
077136 
077144 



103002 
000137 

000137 



104431 
010037 
013737 
062737 
012702 

012700 
104462 
010001 

103006 
004737 
012737 
000436 

012700 
104462 
010001 

103017 
004737 
062737 
012777 
162737 
012737 
000412 

012746 
012746 
010600 
104417 
062706 
000137 

012700 
104442 
010001 

103402 
000137 
012137 
012137 
012137 

013746 
012746 
013746 
012746 
104437 
062706 
013737 
013737 



100112 
100132 



047660 
047660 
OOO002 
003674 

000114 



067656 
000100 



000120 



067656 
000002 
001600 
0OO002 
0O0111 



062622 

000001 



000004 
100130 

000000 



100130 
047652 
047654 
047656 

04 7656 
071144 
04 7654 
000003 

000010 
04 7652 
047632 



151; 

START j 



JMP NtW 
JMP I4IEXI 
I $ STACK 41000, SP 
MEMORY FRESIZ 



BCC 



15$ 



047662 
047662 



MOV 
ADD 
MOV 
CLOCK 



FRESIZ, FREMEM 
*2, FREMEM 
*CLKCSR,R2 
L.R1 



BNCOMPLETE 



1* 



003704 



1$ 



JSR PC.CLKSET 

MOV OLCLKEN.CLKEN 

BR 3$ 

CLOCK P,R1 



BNCOMPLETE 



2$ 



003674 
104660 
003674 

003704 



2$ 



JSR 
AOO 
MOV 

sue 

MOV 

BR 

PRINTF 



PC.CLKSET 

♦2.CLKCSR 

>PCLKCT,QCLKCSR 

♦2.CLKCSR 

#PCLKEN,CLKEN 

3* 

4N0CLK 



3*s 



JMP 

GPHARD 



INICLN 
#0,R1 



BCOMPLETE 



4* 



4i: 



JMP 
MOV 
MOV 
MOV 
SETVEC 



INICLN 

(R1)»,UNACSR 

CRl)f ,UNAVEC 

(RD*. UNAPRI 

UNAVEC , OUNAISR , UNAPRI 



ilF DON'T KNOW WHY WE'RE HERE, 
l SET PARAMETER STACK POINTER 
j GET FREE MEMORY INFO 

TRAP 
MOV 
j SIZE OF FREE MEMORY IN FRESIZ 
t START OF FREE MEMORY IN FREMEM 
» SETUP R2 AS A PRT. TO CLOCK INFO, 
tGET LINE CLOCK INFO 

MOV #*l 



EXIT 



C*MEM 
RO, FRESIZ 



BLOCK 



{IF NONE, SEE IF P 

l SET UP CLOCK INFO 
I SET UP THE ENABLE 

jGFT P CLOCK INFO 



RO 

TRAP CiCLCK 
MOV R0.R1 
CLOCK PRESENT 

BCC 1$ 
TABLE AND VECTOR 
LINE CLOCK DATA 



j IF NO CLOCK, EPROR 



MOV 

TRAP 

MOV 

BCC 



O'H.RO 
C»CLCK 
R0,R1 

2$ 



I ELSE SET UP CLOCK INFO AND VECTOR 
j POINT CLKCSP TO P-CLK COUNT SET REG. 
i LOAD CLK SE*« REG WITH COUNT VALUE 
jPOINT CLKCSR BACK TO P-CLK CSR 
j SETUP TO ENABLE P-CLK DATA 



«NOCLK,~CSP) 

•l.-(SP) 

SP.RO 

CiPNTF 
♦4,SP 



j ERROR fiESSAGE 

MOV 

MOV 

MOV 

TRAP 

ADD 
jCANNOT CONTINUE, 00 CLEANUP 
»GET P-TAB POINTER FOR THIS UNIT 

MOV 00. RO 

TRAP CIGPHRD 

MOV R0.R1 
I THIS ONE IS NOT AVAILABLE 

BCS 4$ 



I SAVE CSR 

jSAVE VECTOR 

iSAVE PRIORITY 

t SETUP UNA INTERRUPT 



04 7632 
047634 



MOV 
MOV 



UNACSR.PCSRO 
PCSRO.PCSRl 



iPCSRO 



VECTOR 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 



UNAPRI, -CSM 
♦UNAISR, -(SP) 
LMAVEC, (SP) 
#3 ( -(SP) 
C$SVEC 
»10 t SP 
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SEQ 138 



4 754 


077152 


062737 


000002 04 7634 


4755 


077160 


013737 


047634 047636 


4756 


077166 


062737 


000002 047636 


4757 


077174 


013737 


047636 047640 


4758 


077202 


062737 


000002 047640 


4759 


077210 


012703 


000050 


4 760 


077214 


012702 


002404 


4761 


077220 


005022 




4762 


077222 


005303 




4 763 


077224 


001375 




4 764 


077226 


012703 


000132 


4765 


077232 


012702 


002656 


4766 


077236 


005022 




4767 


077240 


005303 




4768 


077242 


001375 




4 769 


077244 


005037 


050500 


4770 


077250 


005037 


050476 


477V 


077254 


005037 


050502 


477^ 


077260 


005037 


050504 


4773 


077264 


005037 


050506 


4774 


077270 


005037 


050510 


4775 


077274 


005037 


003706 


4776 


077300 


005037 


003710 


4777 


077304 


0.13737 


003702 003712 


4778 


077312 








077312 


013746 


003676 




077316 


012746 


067702 




077322 


013746 


003700 




077326 


012746 


000003 




077332 


104437 






077334 


062706 


000010 


4779 


077340 


013777 


003704 104326 


4780 


077346 








077346 


012700 


000000 




077352 


104441 




4781 


077354 






4 782 


077362 






4783 


077374 






4784 


077376 


001402 




4785 


077400 


000137 


100034 


4 786 


077404 






4787 


077426 








077426 


012746 


002322 




077432 


012746 


055342 




077436 


012746 


000002 




077442 


010600 






077444 


104416 






077446 


062706 


000006 


4 788 


077452 






4 789 


077464 






4790 


07 7466 


001162 




4791 


0774 70 


113702 


04 7670 


4 792 


C77474 


142 702 


030300 


4793 


077500 








077500 


010246 






077502 


012746 


055413 




077506 


012746 


000002 



5$ 



6$ 



ADD 
MOV 
ADD 
MOV 
ADD 
MOV 
MOV 
CLR 
DEC 
BNE 
MOV 
MOV 
CLR 
DEC 
BNE 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
MOV 
SETVEC 



8$; 



MOV 
SETPRI 



CALL 

CALL 

PIPOP 

BEQ 

JHP 

CALL 

PRINTS 



02.PCSR1 

PCSR1,PCSR2 

02, PCSR2 

PCSR2,PCSR3 

0?,PC5R3 

0TBLLEN.R3 

ON0DTBL.R2 

(R2)» 

R3 

51 

0STBLEN,R3 

0STATBL.R2 

CR2)* 

R3 

61 

S.NREC 

S.REC 

S.LEN 

S.COMP 

S.BYTE 

S.XfER 

TIMMIN 

TIMSEC 

CLKHZ.TIMTCK 

CLKVEC , OCLKINT , CLKBR 



jPCSRl 

IPCSP2 

tPCSR3 

, CLEAR NuDE TABLE 



I CLEAR SUMMARY TABLE 



j CLEAR SUMMARY DATA COUNTERS 



j CLEAR TIME SINCE -START-LOCATIONS 



CLKEN.SCLKCSR 
OPRIOO 



LNAINI 

FUNCT ORDDEFA 

R2 

81 

20$ 

BINHEX OPCBB2,06,OSTRBUF 

OHOMSG1,OSTRBUF 



CLKBR. (SP) 

OCLKINT, -CSP) 
CLKVEC, -CSP) 
♦3. -CSP) 
CtSVEC 
010. SP 



»LOAD TICKS/SEC 

j SETUP CLOCK INTERRUPT VECTOR 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

j SET ENABLE BITS IN \HL CLOCK TO START 
{SET PRIORITY-0 SO CLOCK CAN INTERRUPT 

MOV OPRIOO, RO 

TRAP C$SPRI 
i INITIALIZE THE UNA 
iREAD UNA DEFAULT PHYSICAL ADDRESS 
I CHECK FOR ERROR 



tPUT ADDRESS INTO HEX FORMAT 



CALL 


FUNCT ORD 


PI POP 


R2 


BNE 


20* 


MOVB 


PCBB2.R2 


BIC8 


0300, R2 


PRINTS 


OHDMSG2.R2 



j PRINT ADDRESS 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

»READ STATUS TO GET ROM VERSION 

j CHECK FOR ERROR 

I ONLY WANT LOWEST 6 BITS 

jPRINT ROM VERSION 

MOV 

KOV 

mov 



OSTRBUF.-CSP) 

OH0MSG1.-CSP) 

02,-CSP) 

SP.RO 

CIPNTS 

06, SP 



R2, (SP) 
OH0MSG2, *(SP) 
02, -(SP) 



CZUACBO DEUNA NI EXERCISER DIAG MACRO M1200 
INITIALIZE SECTION 



Jll 
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SEQ 139 





077512 


010600 






077514 


104416 






077516 


062706 


000006 


4794 


077522 








077522 


012746 


055466 




077526 


012746 


000001 




077532 


010600 






077534 


104416 






077536 


062706 


000004 


4795 


077542 


012703 


050340 


4796 


077546 


012723 


000002 


4797 


077552 


01?723 


050550 


4798 


077556 


012723 


000000 


4799 


077562 


012713 


021040 


4800 


077566 






4801 


077600 






4802 


077602 


001114 




4803 


077604 


013703 


050550 


4804 


077610 


032703 


002000 


4805 


077614 


001414 




4806 


077616 


032703 


004000 


4807 


077622 


001425 




4808 


077624 








077624 


012746 


055522 




077630 


012746 


000001 




077634 


010600 






077636 


104416 






077640 


062706 


000004 


4809 


77644 


000435 




4810 


077646 


032703 


004000 


4811 


077652 


001422 




4812 


077654 








077654 


012746 


055577 




077660 


012746 


000001 




077664 


010600 






077666 


104416 






077670 


062706 


000004 


4813 


077674 


000421 




4814 


077676 








077676 


012746 


055650 




077702 


012746 


000001 




077706 


010600 






077710 


104416 






077712 


0^2706 


000004 


4815 


077716 


0CO410 




4816 


077720 








077720 


012746 


055710 




077724 


012746 


000001 




077730 


010600 






077732 


104416 






077734 


062706 


0000C4 


4817 


077740 


032703 


010000 


4818 


077744 


001411 




4819 


077746 








077746 


012746 


055751 




077752 


012746 


000001 




077756 


010600 





PRINTS 0HDMSG3 



MOV 


0UCB2O.R3 


MOV 


02, (R3)* 


MOV 


0TEMP,(R3)* 


MOV 


0O,(R3)» 


MOV 


021040, CR3) 


CALL 


FUNCT 0DMPMEM 


P$POP 


R2 


BNE 


20$ 


MOV 


TEMP.R3 


BIT 


08IT1O,R3 


BEQ 


11* 


BIT 


0BIT11,R3 


BEQ 


12* 


PRINTS 


0HDMSG4 



11$: 



BR 


15$ 


BIT 


♦BIT11.R3 


BEQ 


13$ 


PRINTS 


0HDMSG5 



12$: 



BR 15$ 
PRINTS 0HDMSG6 



13$: 



BR 
PRINTS 



15$: 



BIT 
BEQ 
PRINTS 



15$ 
0HDMSG7 



06IT12.R3 

16$ 

0HDMSG8 



SP.RO 
C$PNTS 
06, SP 

0HOMSG3.-CSP) 
01, -(SP) 
SP,RO 
C$PNTS 
04, SP 



MOV 

TRAP 

ADD 

j PRINT MORE HEADER INFO 

MOV 

MOV 

MOV 

TRAP 

ADD 

j SET UP FUNCTION CONTROL BLOCK 

I MOVE 2 BYTES... 

I INTO LOCATION TEMP., . 

j FROM LOCATION 21040 
j DUMP INTERNAL MEMORY 
j CHECK FOR ERROR 

jPUT RESULT INTO R3 
j DETERMINE STATUS 



: BIT10JBIT11 • REMOTE AND POWER UP BOOT ENABLED 

MOV 0HOMSG4,-(SP) 
MOV 01, -(SP) 
MOV SP.RO 
TRAP C$PNTS 
ADD 04. SP 



I BIT11 - REMOTE BOOT ENABLED WITH ROM 



MOV 

MOV 

MOV 

TRAP 

ADD 

{ BIT10 - REMOTE BOOT ENABLED 

MOV 

MOV 
MOV 
TRAP 
ADD 

j REMOTE BOOT NOT ENABLED 

MOV 

MOV 

MOV 

TRAP 

ADD 



0K)MSG5,-CSP) 
•1,-CSP) 

SP.RO 
C$PNTS 
04, SP 



0HOMSG6.-CSP) 
•l.-CSP) 
SP.RO 
CiPNTS 

04, SP 



0HDMSG7.-CSP) 
01, -(SP) 
SP.RO 
C$PNTS 
04, SP 



j BIT12 - 



SELF TEST ENABLED 
MOV 
MOV 
MOV 



0HDMSG8. 
01. -(SP) 
SP ( RO 



(SP) 



CZUACBO DEUNA NX EXERCISER DIAG MACRO M1200 
INITIALIZE SECTION 



Kll 



4820 
4821 



4822 
4823 
4824 
4825 
4826 



4827 
4828 
4829 
4850 

4831 



4832 
4833 



4834 
4835 

4836 



483V 
4639 
4840 
4841 
4642 
4843 
4844 
4845 
4846 
4847 
4849 
4850 
4851 
4852 



077/60 
077762 
077766 
077770 
077770 
077774 
100000 
100002 
100004 
100010 
100016 
100024 
100032 
100034 
100034 
100036 
100040 
100042 
100044 
100046 
100052 
100056 
100064 
100064 
100070 
100074 
100100 
100104 
100106 
100112 
100120 
100120 
100124 
100126 
100130 
100130 
100i32 
100132 
100134 



100136 
100136 
100136 



104416 
062706 
000410 

012746 
012746 
010600 
104416 
062706 
012737 
012737 
012737 
000405 

104455 
000022 
065127 
067460 
000431 
005037 
005037 
013737 

013746 
012746 
013746 
012746 
104437 
062706 
013777 

012700 
104441 
000401 

104444 

104432 
000002 



000004 



056014 
000001 



000004 
000000 
001000 
000001 



16$; 
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BR 17$ 
PRINTS 0HDMSG9 



l SELF TEST DISABLED 



002370 
002372 
002374 



17$ j 



20$: 



MOV 

MOV 

MOV 

BR 

ERRDF 



003706 
003710 
003702 

003676 
067702 
003700 
000003 

OCOOIO 
003704 

OCOOOO 



003712 



QR 
RESTRTj CLR 
CLR 
MOV 
SETVEC 



*ALPHA,P$TYPE 

*512.,P$SIZE 

01.PKPYS 

RESTRT 

13,EMS618,ERR1 



INICLN 

TIMMIN 

TIMSEC 

CLKHZ.TIMTCK 

CLKVEC.OCLKjtNT.CLKBR 



jSET MESSAGE DEFAULT 



TRAP 
ADD 



MOV 
MOV 
MOV 
TJnP 
APO 
VALUES 



SEQ 140 



C$PNTS 
#4,SP 



*HDMSG9,-CSP) 

*l.-i'SP) 

SP,R0 

C$PNTS 

44, SP 



TRAP 


C$ERDF 


.WORD 


18 


.WORD 


EMSG18 


.WORD 


ERR1 



jCLEAR TIME SINCE-START-LOCATIONS 



103554 NEW: 



MOV CLKEN.8CLKCSR 
SETPRI OPRIOO 



BR INIEXI 
INICLN: DOCLN 



{LOAD TICKS/SEC 

j SETUP CLOCK INTERRUPT VECTOR 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

;SET ENABLE BITS IN THE CLOCK TO START 
{SET PRIORITY-0 SO CLOCK CAN INTERRUPT 

MOV <>PRI00.R0 

TRAP C$SPRI 
I EXIT 
lABONT PASS 



CLKBR. CSP) 

GCLKINT.-CSP) 

CLKVEC.-(SP) 

03,-CSP) 

CtSVEC 

*10 f SP 



INIEXI: EXIT 



INIT 



{EXIT INIT SECTION 



TRAP 

TRAP 
,UORD 



CtDCLN 

C$EXIT 
L 10010 



j INSERT LOCAL STORAGE THAT IS USED ONLY 
j DURING THE INITIALIZE SECTION. 
I**********************U**#***************^^ 

t *************#***#*#****** ***************rf***^^ 
i INSERT MESSAGES THAT ARE USED ONLY 
I DURING THE INITIALIZE SECTION. 
i ************************** ^ 

.EVEN 
ENDINIT 



104411 



L10010: 



TRAP 



CSINIT 



MMM EXERCISER DIAG MACR0 M120 ° 



Lll 
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SEQ 141 



4854 
4855 
'856 
4857 
4858 
4859 
4860 
4861 
4862 
4863 100140 

100140 
4864 
4866 
4867 
4868 
4869 
4671 
4872 100140 

100140 

100140 104461 



.SBTTL. AUTO0R0P SECTION 



I ♦♦ 



THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
I THE "ADR'* FLAG WAS SET. THE UNITCS) UNDER TEST ARE CHECKED TO 
i SEE IF THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 
i DROPPED FROM TESTING. 



BGNAUTO 



LJAUTO:: 



I INSERT CODE HERE TO CHECK DEVICE(S) TO SEE IF THEY RESPOND, 
i ISSUE A "DODU" FOR THOSE THAT DON'T. 



ENDAUTO 



L10011: 



TRAP 



C*AUTO 



Mil 



CZUACBQ DEUNA NI EXERC 
CLEANUP COOING SECTION 
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SEQ 142 



4874 
4875 
4876 
4877 
4878 
4879 
4880 
4881 

4882 
4884 
4885 
4886 
4887 
4888 
4889 
4891 
4892 
4893 
4894 
4895 
4896 
4897 



4698 
4899 
4900 
4901 
4902 
4903 
4904 
4905 
4906 



4907 



4908 
4910 
4911 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4920 
4921 
4922 
4923 



.SBTTL CLEANUP CODING SECTION 



100142 
100142 



100142 
100150 
100162 
100170 
100172 
100174 
100174 
100176 
100200 
100202 
100204 
100210 
100212 
100220 
100222 
100.?24 
100236 
100240 
100244 
100244 
100250 
100252 
100252 
100254 



100256 
100256 
100256 



f f 



THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 



BGNCLN 



LJCLEAN 



012737 000000 050044 

012737 000400 050044 

001404 

104456 

000046 

065442 

000000 

005737 050516 

001413 



001770 

000762 

005077 103430 

012700 000340 
104441 

104432 
000002 



}*************************************************************^^ 

i INSERT YOUR CLEANUP CODING. THIS CODING SHOULD 

j RESTORE YOUR TEST -DEVICE TO A NEUTRAL STATE. 

5 THIS CODE WILL BE EXECUTED AFTER EACH PASS AND AFTER THE 

j PROGRAM IS INTERRUPTED BY »K". 

j************************************************************si******************** 

{CLEAR MULTICAST ADDRESS LIST 

I WRITE INTO LIST LENGTH 

j RESET FOR 1 ENTRY 

{CHECK FOR ERROR 

I IF OK CONTINUE 

; ELSE, REPORT ERROR 

TRAP C$ERHRD 
.WORD 38 
.WORD EMSG25 
. WORD 

j SEE IF RECEVE COUNT ZERO 

i IF YES, EXIT 

I ELSE, CLEAR OUT UNWANTED ENTRIES 

t IF ANY WERE FOUND. UPDATE NEXT POINTER 

{SEE IF ANY MORE ENTRIES 

{DISABLE Cl_OCK 

j SET PROCESSOR PRIORITY BACK TO 7 

MOV OPRI07.RO 
TRAP CiSPRI 

TRAP C$EXIT 
.WORD L10012-. 



25$ 



30$ 



MOV 


*0,$WDMC*4 


CALL. 


FUNCT OWDMULA 


MOV 


$4O0,$WDMC+4 


P$POP 


R2 


BEQ 


25$ 


ERRHRD 


38.EMSG25 


TST 


NIRCNT 


BEQ 


30$ 


CALL 


RECEVE 


P$POP 


R2 


BEQ 


25$ 


CALL 


GETRNX GRRGNXT 


BR 


25$ 


CLR 


SCLKCSR 



SETPRI #PRI07 



EXIT 



CLN 



i***************************************************************!***^^^^^^^^^^^^^^^ 
j INSERT LOCAL STORAGE THAT IS USED ONLY 
j DURING THE CLEANUP SECTION, 
i**********************************************************^***^**^^**^^^^^^^^,!^^^ 

j****************************^^****************************************^*******^*^ 

{ INSERT MESSAGES THAT ARE USED ONLY 

{ DURING THE CLEANUP SEC i ION. 

j***********^********^*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 

.EVEN 



ENDCLN 



104412 



L10012: 



TRAP 



C$ CLEAN 



S^ C ^I? E ^T^N EXERCISER DIAG MACR ° m2 °° 



Nil 
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SEQ 143 



4925 

4926 

4927 

4926 

4929 

4930 

4931 

4932 100260 
100260 

4933 

4935 

4936 

4937 

4938 

4939 

4940 

4942 

4943 100260 
100260 
100262 

4944 

4946 

4947 

4948 

4949 

4950 

4951 

4952 

4953 

4954 

4956 

4957 

4958 

4959 100264 
100264 
100264 



.SBTTL DROP UNIT SECTION 



I ♦♦ 



. THE DROP -UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
l TO NO LONGER BE TESTED. 
; -- 



BGNDU 



L*DU 



INSERT DROP CODE HERE. THIS v «.iLL BE EXECUTED AFTER 

A "DROP" COMMAND OR A "DODU" MhCRO EXECUTION. THE PURPOSE 
OF THIS CODE IS TO DO ANY NECESSARY HOUSEKEEPING AFTE3 A 
UNIT HAS BEEN DROPPED, THIS SECTION IS OPTIONAL. 
fM**f<tfi<tii<tfi(tfiftf«MtfiM^ 



000167 
000000 



EXIT 



DU 



.UORO 
.WORD 



J$JMP 
L10013-2 



; INSERT LOCAL STORAGE THAT IS USED ONLY 
j DURING THE DRC°-UNIT SECTION. 

j INSERT MESSAGES THAT ARE USED ONLY 
; DURING THE DROP-UNIT SECTION. 

.EVEN 



ENDDU 



104453 



L10013; 



TRAP 



C$OU 



CZUACBO DEWA NI EXERCISER DIAG MACRO M1200 
ADD UNIT SECTION 



B12 
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SEQ 144 



4%l 
4962 
4965 
49i,4 
4965 
4966 
4967 
4966 

4969 100266 
100266 
4970 
4972 

4973 
4974 

4975 
4976 
4977 
4979 
4980 100266 

100266 000167 

100270 000000 
4981 
4983 
4984 
4985 
4986 
498 7 
4988 
4989 
4990 
4991 
4993 
4994 
4995 
4996 100272 

100272 

100272 104452 
4997 

4998 
4999 
5000 
5002 
5003 
5004 
5005 
5007 
5008 
5009 
5010 
5011 
5012 
5014 
5015 
5016 
5017 
5019 
5021 



SBTTL ADD UNIT SECTION 



* *> 



THE ADD -UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
TO THE TEST CYCLE, 



BGNAU 



LIAUi : 



INSERT ADD CODE HERE. THIS COOE WILL BE EXECUTED AFTER 
AN "ADO" COMMAND, THE PURPOSE OF THIS CODE IS TO DO ANY 
HOUSEKEEPING THAT MAY BE NECESSARY AFTER A UNIT HAS BEEN ADDED. 
THIS SECTION IS OPTIONAL. 



EXIT 



AU 



.WORD 
.WORD 



JUMP 
L10014-2 



INSERT LOCAL STOWAGE THAT IS USED ONLY 
DURING THE ADO-UNIT SECTION. 



INSERT MESSAGES THAT ARE USED ONLY 
DURING THE ADO-UNIT SECTION. 



.EVEN 
ENDAU 



.SBTTL TEST li 



L10014? 



TRAP 



CtAU 



i APPE*© THE NAME OF THIS TEST TO THE ,SBTTL, AS SHOWN IN THE 

I FOLLOWING EXAMPLE, .SBTTL TEST It MAK OF TEST 



I ♦ ♦ 

I TEST TO , , . 

I - - 

4 CHANGE THE PHRASE "TEST TO ..." TO BE A FUNCTIONAL 

l DESCRIPTION OF THE HARDWARE TEST WHICH FOLl^WS. 

1 ****###fJtf*#tf#tf#*44«#*«fl*«4«***tf**iitf«**««#**«««f}t V*#«««*«**#«*tM 



I «**«**** tf*******«**jO(#**^ 



CZUACBO DEUNA NI EXERCISER DIAG MACRO M120O 
TEST 1: 
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SEQ 145 



502? 
5025 
5025 
5026 

5027 
5029 
5030 
5031 
5033 
5034 
5035 
5036 
5037 



5038 
5039 
5040 
5041 
5042 
5043 
5044 
5045 



5046 
504 7 
504ft 
5049 



505C 
5051 
5052 
5053 



5054 
5055 
5056 
5057 
5058 
5059 



100274 
100274 



100274 
100300 
100304 
100304 
100306 
100310 
100312 
100314 
100316 
100320 
100322 
100324 
100324 
100332 
100340 
100346 
100352 
100356 
100362 
100364 
100364 
100370 
100374 
100376 
100400 
100404 
100410 
100414 
100416 
100416 
100422 
100426 
100430 
100432 
100436 
100442 
100450 
100452 
100452 
100454 



100456 

100456 



105037 
105037 

104443 
000406 
002200 
000142 
052436 
000000 
000001 
000110 

012737 
012737 
012737 
005037 
004737 
10573V 
001412 

012746 
^12746 
d 10600 
104417 
062706 
000137 
105737 
001412 

012746 

012746 
010600 
104417 
062706 
000137 
022737 
001311 

104432 
012302 



\ INSERT PROGRAM EQUATES THAT ARE USED ONLY IN THIS TEST. 



BGNTST 



Tin 



i INSERT THE COOING KOR THIS HARDWARE TEST. 

.SBTTL GfTCL COMMAND LINE FETCH 6 INTERPRETATION SECTION 



003161 
003160 



GETCL i CLRB 
CLRB 
GMANID 



FIGOBD 
PINNUF 
CLIIPM.CMDBUT. A, 0.1.72. 



I CLEAR Cr*' LINt. 
♦ NO |GET CM 



PARSING ERROR 


FLAG 


' LINE FROM OPERATOR 


TRAP 


CIGMAN 


BR 


10OO0I 


.WORD 


CMoeur 


.WORD 


TtCOOE 


.WORD 


CLIIPM 


.WORD 





.WORD 


TILOLIM 


.WORD 


TIMILIM 



002200 
051070 
100456 
003672 
075216 
003161 



052445 
000001 



000004 
100274 
003160 



0524 76 
000001 



000004 

100274 
000020 



003144 
003146 
003150 



MOV 


♦CMDBUF.PIBUFA 


MOV 


♦CLITRE. PUREE 


MOV 


#CLIACY # P$ACT 


CLR 


CFLAG 


JSR 


PC.PITRV 


TSTB 


PIG06D 


BEQ 


11 


PRINTF 


♦CLIERM 



100001 



iCLEAR QUALIFIER FLAG 

I GO PARSE COMMAND TREE 

I SEE IF PARSED OK , OR AN ERROR 



II 



JMP 
TSTB 
BEQ 109 

PRINTF 



GETCL 
PINNUF 

OCLINUF 



003672 10$ j 



JMP 
CMP 
BNE 

EXIT 



GETCL 

•CEXIT, CFLAG 
GETCL 
TST 



I IF NOT PRINT ERROR MESSAGE 

MOV 
MOV 
MOV 
TRAP 
AOD 


♦CLIEPM, 

•I. -CSP) 
SP.RO 
CIPNTF 
♦4.SP 


-CSP) 


I SEE IF INCOMPLETE COMMAND TYPKD 




i IF NOT PRINT ERROR MESSAGE 

MOV 
MOV 
MOV 
TRAP 
ADD 


♦CLINUF, 
#1. -CSP) 
SP.RO 
CIPNTF 
04, SP 


■CSP) 


iWAS EXIT COMMAND TYPED? 

I IF NOT GET NEW COMMANO LINE 

1 ELSE EXIT 

TRAP 
.WORD 


cr-Exir 

L 10015*, 





.SBTTL 



00*302 



CLlACTt 



CLI ACTION TABLE ANO ROUTINES 

USER MUST CLEAR/SET PlGOBD IF USE "CLIBIF- IN CONNECTION WITH ACTION 

R2 WILL HOLQ ACTION CQQ& FROM PARSING (CLI) NGOE 



ASL 



R2 



{MULTIPLY ACTION CODE BY 2 



CZUACOO DEUNA NI EXERCISER DIAG MACRO M1200 
CLI ACTION TABLE AND ROUTINES 
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SEQ 146 



5060 


10O460 


016202 1004 74 


5061 


100464 


062702 100474 


5062 


100470 


004712 


5063 


100472 


000207 


5064 






5065 






5066 


100474 


000122 


5067 


1004 76 


000124 


5066 


100500 


000162 


5069 


100502 


000472 


5070 


100504 


003542 


5071 


100506 


006336 


5072 


100510 


010174 


5073 


100512 


001214 


5074 


100514 


001570 


5075 


100516 


002654 


5076 


100520 


000114 


5077 


100522 


002664 


5076 


100524 


002746 


5079 


100526 


007700 


5080 


100530 


002754 


5081 


100532 


002764 


5082 


100534 


002774 


5083 


100536 


003004 


5064 


100540 


003014 


5085 


100542 


003024 


5066 


100544 


001034 


5067 


100546 


003162 


5088 


100550 


003170 


5089 


100552 


003246 


5090 


100554 


003324 


5091 


100556 


003462 


5092 


100560 


003662 


5093 


100562 


004730 


5094 


100564 


006420 


5095 


100566 


006512 


5096 


100570 


006616 


5097 


100572 


010054 


5098 


1005 74 


010140 


5099 


100576 


010240 


5100 


100600 


010342 


5101 


100602 


004302 


5102 


100604 


010416 


5103 


100606 


010464 


5104 







10*} 



MOV 
ADO 
JSR 
RTS 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORO 
.W03D 
.WORD 
.WORD 
.WORD 
.WORD 
.WORO 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



10*(R2),R2 
*10$.R2 
PC,CR2) 
PC 



ACTNUL-101 
ACTHLP-10* 
ACTNOO-10* 
ACTBLD-101 
ACTRUN-101 
ACTPAT-101 
ACTSAV-101 
ACTSUn-10* 
ACTIDT-101 
ACTEXT-10* 
ACTNUF-101 
ACTXAO-101 
ACTSR4-10I 
ACTSNO-10* 
ACTALP-101 
ACTONE-10* 
ACTZRO-lOi 
ACT1AL-10I 
ACTOAL-101 
ACTCTT-101 
ACTOPR-101 
ACTTYP-101 
ACTSZE-10* 
ACTCPY-101 
ACTNAD-101 
ACTNAL-10* 
ACTRNA-10* 
ACT^NL-10* 
ACTSMS-101 
ACTCMS-101 
ACTCNT 101 
ACTCNL-10* 
ACTFCT-lOt 
ACTIOS 10* 
ACTCSU10* 
ACTDIR-10* 
ACTDrT-10* 
ACTUSF-101 



OFFSET VALUE 
ADO BASE VALUE 
GO DO ACTION 
RETURN TO TRVACT 

BRIEF DESCRIPTION OF ACTION TAKEN 

O-NULL 

1-HELP 

2-NOOE 

3 -BUILD 

4-RUN SPECIFIED TEST 

5-SET 'MESSAGE PATTERN' TEST FLAG 

6 -SAVE NOOE TABLE 

7 -PRINT SUMMARY TABLE 

10-REQUEST ID 

11-EXIT 

12-NOT ENOUGH INFO 

13-EXTRACT NI NOOE ADDRESS FROM INPUT LINE 

14-SAVE POINTER TO BEGINING OF ADDRESS STRING 

15-SET 'NODE' FLAG FOR SHOW COMMAND 

16-SET 'ALPHA- FLAG 

17-SET 'ONES' FLAG 

20- SET 'ZEROS' FLAG 

21-SET ' 1ALT 1 FLAG 

22-SET 'OALT' FLAG 

2 T -SET 'CCI'iT* FLAG 

24 -SET »OPER SEL' FLAG 

25-DETERHINE MESSAGE TYPE 

26-DETERMINE MESSAGE SIZE 

27-DETERMINE MESSAGE COPIES 

30-SET 'N0OE/ADORESS' FLAG 

31-SET 'NOOE/ALL' FLAG 

32 -SET 'ALL' FLAG FOP RUN COMMANO 

33-SET 'LOOPPAI*' FLAG FOR RUN CMO 

34-SHOW CERENT MESSAGE PARAMETERS 

35-RESET MESSAGE PARAMETERS TO DEFAULT 

36-SET 'COUNTER' FLAG F0« SHOW COMMAND 

37 -CLEAR LOGICAL NOOE NAMED FROM TABLE 

40-INITIATE ONA PORT COMMAND FUNCTION 

41-UNSAVE NOOE TABLE 

42 -CLEAR SUMMARY TABLE 

43-SET 'LOOP DIRECT' FLAG FOR RUN COMMANO 

44 -LOOK FOR PASS COUNT DEFAULT 

45-UNSAVE NOOE TABLE FROM A FILE 
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SEQ 147 



5106 

5107 
5108 
5109 
5110 
5111 
5112 
5113 
5114 
5115 
5116 
5117 
5110 
5119 
5120 
5121 
5122 
5123 
5124 
5! 25 
5126 
5127 



5126 
5129 
5130 
5131 
5132 
5133 
5134 
5135 
5136 
5137 
5138 
5139 
5140 
5141 
5142 
5143 
5144 
5145 
5146 



5147 

5148 
5149 
5150 
5151 



100620 
100622 
100626 
100626 
100630 
100634 
100636 
100640 
100644 
100650 
100652 
100654 



100656 
100662 
100666 
100672 
100674 
100716 
100720 
100722 
100722 
100726 
100732 
100734 
100736 
100742 
100744 
100762 
100764 
100766 
100766 



j ACTION ROUTINE TO INDICATE THAT NOT ENOUGH COMMAND 
i INFORMATION HAS BEEN ENTERED 



J 
100610 112737 177777 003160 ACTNUF ; MOVB 



•-1.PINNUF 



j SET FLAG VO SAY NEED MORE OF COMMAND 



100616 000207 



012702 

012^6 

012746 
010600 
104417 
062706 
020227 
001366 

000207 



105037 
004737 
105737 
001134 



001411 

012746 
012746 
010600 
104417 
C027O6 
000510 



001021 
012746 



003164 
000001 



000004 
003260 



003160 
076330 
003161 



053232 
OOOOOl 



C 00004 



l ACTION ROUTINE TO DO NOTHING 



ACTNULj RTS 



PC 



j RETURN TO PARSER 



I ACTION ROUTINE TO PRINT OUT HF.UP FILE 

I 

ACTHLPt PIPUSH R2 

MOV ♦HLPTAB.R2 
10$: PRINTF (R2)* 



, SAVE R2 

I MOVE POINTER TO BEGINING OF HELP FILE 

i PRINT LINE AND INCREMENT POINTER 



CMP 


R2,*HLPEN0 


BNE 


101 


PIPOP 


R2 


RTS 


PC 



MOV 
MOV 
MOV 
TRAP 
ADD 
IF ENTIRE I ILE PRINTED 
MORE 



I SEE 

I IF NOT, PRINf 



CR2)*.-(SP) 

♦l.-CSP) 

SP.RO 

CJPNTF 
04, SP 



j ELSE, RESTORE R2 AND RETURN 



I ACTION ROUTINE TO READ IN NODE PHY, ADDRESS. STORE IT IN ADRBUP 

tANO ENTER IT INTO THE NODE TABLE 

; 



ACTNODt 



10$ 



CLR8 

JSR 

TSTB 

BNE 

CALL 

PIPOP 

BEQ 

PRINTF 



PINNUF 

PC, TRVAOR 

PIGDBO 

501 

EOPACK CBOADR.0ADRBUF.O6 

Rl 

151 

OCADRER 



l CLE AH NOTNUF FLAG 

I TRAVERSE ADORESS. CHECK IF TARGET OR ASSIST 

I CHECK IF RESULTS OK 

I IF NOT, RETURN WITH -1 IN PIGOBO 

iGET ADDRESS INTO BUFFER 
I CHECK RESULTS FOR NUMBER OF CHAR % S 
I IF OK, BRANCH TO 15 1 
I ELSE PRINT ERROR 



15$ j 



053051 



BR 

CALL 
PIPOP 
BNE 
PRINTF 



501 

CMPADR GADRBUF.OILLADR 

Rl 

17$ 

OILADMS 



I AND 



RETURN 
I SEE 



MESSAGE 

MOV 

MOV 

MOV 

TRAP 

ADD 



IF ILLEGAL ADDRESS 



*CADRER, 

♦ i.-(sp) 

SP.RO 

CiPNTF 

<?4,SP 



(SP) 



I IF YES, PRINT ERROR MESSAGE 

MOV 



4ILADMS.-ISP) 



F12 
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5152 



5153 
5154 
5155 
5156 
5157 
5158 
5159 
5160 
5161 
5162 
5163 
5164 
5165 
5166 
5167 



5168 
5169 

5170 
5171 
5172 
5173 
5174 
5175 
5176 



5177 



5178 



100772 
100776 
101000 
101002 
101006 
101006 
101012 
101016 
101020 
101022 
101026 
101030 

101052 
101060 
101062 
101070 
101076 
101100 
101106 
101114 
101122 
101124 
101126 
101134 
101134 
101140 
101144 
101150 
101154 
101156 
101160 
101164 



101166 
101166 
101172 
101176 
101200 
101202 
101206 
101206 
101212 
101216 
101220 
101222 
101226 
101226 
101232 
101236 
101240 



012746 
010600 
104417 
062706 

012746 
012746 
010600 
104417 
062706 
000456 



022737 
001407 
012737 
012737 

000406 

012737 

012737 



001017 
012737 

012746 
013746 
012746 
012746 
010600 
104416 
062706 
000207 



012746 
012746 
010600 
104416 
062706 

012746 
012746 
010600 
104416 
062706 

012746 

012746 
010600 
104416 



000001 



000004 

053135 

000001 



000004 



000001 003672 



062613 
000000 

062603 
000001 



054711 
000001 



000004 

055024 
000001 



000004 

055137 
000001 



PRINTF 0ILADM1 



17$ j 



002312 
002400 

002312 
002400 



20*: 
25$: 



062510 002310 

002322 
002312 
055177 
000003 



000010 



BR 
CALL 

CMP 

BEQ 

MOV 

MOV 

BR 

MOV 

MOV 

CALL 

P*POP 

BNE 

MOV 

PRINTS 



50* 

BINHEX 0ADRBUF,06,0STRBUF 



MOV 
MOV 
TRAP 
ADO 

MOV 

MOV 

MOV 

TRAP 

ADD 



SEQ 148 



#1, -(SP) 
SP,RO 
C*PNTF 
04, SP 

0ILADM1.-CSP) 
01, -CSP) 
SP,RO 
CIPNTK 
04, SP 



0CASIST,CFLAG 

20* 

0ARGTY7,KEYWD2 

0CTARGT.NODTY 

25* 

0ARGTY6.KEYWD2 

0CASIST.NOOTY 

ENTRNO 

Rl 

50* 

0O1OTY7.KEYWDI 

0MSG2 t KEYWD2,0STRBUF 



50$: 



RTS 



PC 



l CONVERT BINARY ADDRESS 
<INT0 ASCII STRING 
I SEE IF TARGET OR ASSIST 

iMOVE 'TARGET' INTO KEYW02 
iMOVE TARGET INTO NODE TYPE 

iMOVE 'ASSIST' INTO KEYU02 

i CALL ROUTINE TO ENTER NOOE ON TABLE 

j CHECK RESULTS 

i IF NOOE TABLE FULL, RETURN 

j ELSE, MOVE "NODE" INTO KEYW01 

j INDICATE IF TARGET OR ASSIST 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



0SYRBl*,-(SP) 

KEYW02.-CSP) 

0MSG2,-(SP) 

♦3. -CSP) 

SP.RO 

C*PNTS 

010, SP 



jACTION ROUTINE TO BUILD NODE TABLE USING THE PERIODIC ADDRESS 
t IDENTIFICATION MESSAGES SENT OUT BY NODE ON THE NT 



ACTBLD: PRINTS 0MSG1 



PRINT 'BUILD' COMMAND 



PRINTS 0MSG11 



PRINTS 0MSG12 



MESSAGE 




MOV 


#HSG1. -CSP) 


MOV 


•l.-(SP) 


MOV 


SP.RO 


TRAP 


C*PNT5 


ADD 


04.SP 


MOV 


0MSG11.-CSP) 


MOV 


01. -CSP) 


MOV 


SP,RO 


TRAP 


CtPNTS 


ADD 


04, SP 


MOV 


0MSG12.-CSP) 


MOV 


01, (SP) 


MOV 


SP.RO 


TRAP 


CJPNTS 
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SEQ 149 



5179 
5180 
5181 
5182 
5133 



5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 

5192 
5193 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5208 
5209 
5210 
5211 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
5221 



5222 
5223 



101242 
101246 
101254 
101266 
101270 
101272 
101272 
101274 
101276 
101300 
101302 
101306 
101312 
101316 
101324 
101332 
101336 
101342 
101342 
101344 
101346 
101350 
101356 
101360 
101362 
101366 
101400 
101404 
101410 
101414 
101426 
101430 
101432 
101436 
101442 
101444 
101452 
101454 
101456 
101462 
101464 
101466 
101470 
101476 
101502 
101510 
101514 
101522 
101524 
101524 
101530 
101534 
101540 
1C1542 
101544 
101550 
101552 



062706 000004 



0O1404 

104456 
000031 
065442 
000000 
005037 
005037 
005037 
012737 
012737 
012704 
012714 



104422 
005714 
001501 



001770 
013703 

016303 
062703 
012702 



001744 
062702 
022712 
001364 



001023 
013702 
012322 
012322 
011312 
U3762 
105137 
142737 
00523 7 
012737 
000707 

012746 
012746 
012746 
010600 
104414 
062706 
000430 
005337 



050550 
050552 
050554 
000012 
002404 
003720 
000074 



10$: 



050556 
002402 



19$: 

20$: 



003764 

000002 
000006 
002404 



000010 
177777 



002402 



050552 0O0O03 

050552 

000376 050552 

050550 

000013 050556 



053701 
053560 
000002 



000006 
050556 



21$ 
22$ 



35$; 



P$PUSH 

CALL. 

P$POP 

BEQ 

ERRMRD 



CLR 
CLR 
CLR 
MOV 
NOV 
MOV 
MOV 
BREAK 

TST 
BEQ 

CALL 

P$P0P 

BEQ 

MOV 

CALL 

MOV 

ADD 

MOV 

CALL 

P$POP 

BEQ 

ADO 

CMP 

BNE 

CALL 

PIPOP 

BNE 

MOV 

MOV 

MOV 

MOV 

MOVB 

COMB 

BICB 

INC 

MOV 

BR 

PRINTB 



R2.R3.R4 

FUNCT OWDMULA 

R2 

10$ 

25.EMSG25 



TEMP 

TEMPI 

TEMP2 

012.TEMP3 

ONOOTBL.SLOT 

*TIMERS,R4 

060., CR4) 



CR4) 

40? 
REi'EVE 

Rr 

2U> 

RRGNXT.R5 

GETRNX ORRGNXT 

2(R3),R3 

♦S0URCC.R3 

*N00TBL,R2 

CMPAOR R2.R3 

Rl 

201 

010. R2 

♦-1.CR2) 

211 

FINOSL 

R2 

351 

SL0T,R2 

(R3)*,(R2)* 

(R3)*,(R2)« 
(R3),(n2) 

TEMPI, 3(R2) 

TEMPI 

0376, TEMPI 

TEMP 

*13,TEMP3 

201 

©TA8FU_,$N0D 



ADD 



04, SP 



» SAVE REGISTERS 

I WRITE MULTICAST ADDRESS LIST 

i CHECK FOR ERROR 

l IF OK, CONTINUE 

j ELSE REPORT ERROR 

TRAP C$ERHRD 
.WORD 25 
.WORD EMSG25 
. WORD 
CLEAR 'NO. NODES IN LAST MIN.' COLNTER 
CLEAR NODE TYPE ARGUMENT (SET TO TARGET) 
SET INTERVAL COUNTER 

SET 'MINS. SINCE LAST NEW NODE' COUNTER 
SET SLOT TO BEGINING OF NODE TABLE 
SET UP FOR 1 MINUTE LOOP 

ALLOW FOR CONTROL C INTERRUPTION 

TRAP C$BRK 
SEE IF INTERVAL IS UP 
IF YES BRANCH 

ELSE/CHECK FOR RECEPTION OT ID MESSAGE 
R2 HOLDS NO OF MESSAGES RECEIVED 
IF NONE, KEEP LOOKING 
IF ONE, GET RECEIVE RING POINTER 
UPDATE POINTER 
POINT R3 TO MESSAGE BUFFER 
POINT R3 TO NOOE ADDRESS 
POINT R2 TO NOOE TABLE 
SEE IF NODE ALREADY ON TABLE 

IF SAME, DON'T ADD TO TABLE 
ELSE CHSCK NF.XT TABLE ENTRY 
SEE IF AT END OF TABLE 
IF NO, COMPARE NEXT ENTRY 
IF YES, GET NEXT TABLE SLOT 
SEE IF TABLE FULL 
IF YES, BRANCH 
IF NO. ADD NOOE TO TABLE 

SIX BYTES WORTH 

SET NOOE TYPE (TARGET OR ASSIST) 
SWITCH TYPE FOR NEXT TIME 



40$j 



BR 
DEC 



50$ 
TEMP3 



INCREMENT 'NODES IN LAST MIN. 

RESET 'MINS. SINCE LAST NODE' 

CHECK FOR MORE INPUT 
5 PRINT "TABLE FULL' 1 MESSAGE 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 

1 SEE IF 10 MINS SINCE LAST NODE 



COUNTER 

COUNTER 



ONOD.-CSP) 

#TABFUL,-(SP) 

02, -CSP) 

SP.RO 

C5PNTB 

06, SP 



KY^iffiWI &ffi R 5i§WNgg AG MACR0 M1200 



H12 



22-MAR-84 10:53 PAGE 30-3 



SEQ 150 



5224 
5225 

5226 
5227 
5228 



5229 
5230 
5231 
5232 
5233 
5234 
5235 



5236 
5237 
5238 
5239 
5240 
5241 
5242 
5243 
5244 
5245 
5246 
5247 
5246 
5249 
5250 
5251 



5252 
5253 
5254 
5255 
5256 
5257 
525© 



101556 
101560 
101564 
101572 
101574 
1C1574 
101600 
101604 
101610 
1C1614 
101616 
101620 
101624 
101630 
101632 
101640 
101652 
101614 
101656 
101656 
101660 
101662 
101664 
101666 
1C1672 
101700 
101706 



101710 
101714 
101722 
101726 
101730 
101732 
101732 
101736 
101742 
101746 
101750 
101752 
101756 
101760 
101764 
101756 
101770 
101772 
102012 
102012 
102016 
102022 
102026 
102030 



001425 
005237 
023727 
001417 

013746 
013746 
012746 
012746 
010600 
104416 
062706 
00f037 
00064? 
012737 



001404 

104456 
000042 
065442 
000000 
004737 
012737 

000207 



105037 

012701 
005711 
001013 

012746 
012746 
012746 
010600 
104417 
062706 
000536 
021127 
001533 
005711 
001531 



012746 
012746 
012746 
010600 
104417 



050554 
050554 



050554 
050550 

052757 
000003 



000010 

C50550 



000050 



BEQ 
INC 
CMP 
BEQ 
PRINTS 



50$ 

TEMP2 

TFMP2.04O. 

50* 

0BLDMSG,TEMP,TEMP2 



000000 050044 50$: 



CLR 

BR 

MOV 

CALL 

P$POP 

BEQ 

ERRHRD 



TEMP 

19* 

*0,*WONC*4 

FUNCT 0WDMULA 

R2 

54$ 

34.EMSG25 



1 IF YES, EXIT 




I SEE IF TIME IS UP 




I IF YES, EXIT 




t ELSE, PRINT "STILL WORKING" 


MESSAGE 


MOV 


TEHP2.-CSP) 


MOV 


TEHP,-(SP) 


MOV 


08LDMSG.-CSP) 


MOV 


03, -(SP) 


MOV 


SP.RO 


TRAP 


C$PNTS 


ADO 


410. SP 



I CLEAR MULTICAST ADDRESS LIST 

I WRITE INTO LIST LENGTH 

i CHECK FOR ERROR 

i IF OK CONTINUE 

j ELSE, REPORT ERROR 



110374 
000400 



050044 



54$; 



JSR 


PC.ACTSNO 


MOV 


04OO,$WDMC*4 


P$P0P 


R2,R3,R4 


RTS 


PC 



TRAP 


C$ERHRD 


.WORD 


34 


.WORD 


EMSG25 


.WORD 






i PRINT NODE TABLE 

I RESET MULTICAST LIST FOR 1 ENTRY 

» RESTORE REGISTERS 



j ACTION ROUTINE TO PRINT OUT THE SUMMARY DATA 



t 



003160 
002656 



053706 
053632 
000002 



000006 
177777 



ACTSUM: CLRB 


P$NNUF 


P$PUSH 


R2.R3.R4 


MOV 


0STATBL,R1 


TST 


CR1) 


BNE 


5$ 


PRINTF 


OTABEMT,0SUMM 



002322 
067i>15 
000002 



BR 30$ 

5$: CMP (Rl),*-l 

BEQ 30$ 

TST (Rl) 

BEQ 30$ 

CALL BINHEX Rl , 06. 0STRBUF 

PRINTF 0SUMMSl,0STR3Uf 



{CLEAR NOTNUF FLAG 

} MOVE ADDRESS OF TABLE TO Rl 
i SEE IF TABLE EMPTY 
I IF NOT, CONT, 
l ELSE PRINT 'TABLE EMPTY' 

HOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
EXIT 
SEE IF AT ENO OF TABLE 

IF YES, EXIT 
SEE IF REST OF TABLE EMPTY 

IF YES, EXIT 
PRINT SUMMARY DATA 
NODE ADDRESS 

MOV 
MOV 
MOV 
MOV 
TRAP 



MESSAGE 

«SUMM,-CSP) 

0TABEMT.-CSP) 

#2.-CSP) 

SP.RO 

C$PNTF 

06.SP 



0STRBUF, 
0SUMMS1, 
02, -(SP) 
SP.RO 
C$PNTF 



(SP) 
(SP) 
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SEQ 151 



5259 



5260 
5261 
5262 
5263 



5264 



5265 
5266 
5267 
5268 



5269 

5270 
5271 



5272 
5273 
5274 
52 7 r - 
527b 
5277 
5278 
5279 
5280 
5281 
5282 
5283 



102032 
102036 
102036 
102042 
102046 
102050 
102052 
102056 
102062 
102066 
102072 
102072 
102074 
102075 
102100 
102104 
102110 
102112 
102114 
102120 
102X20 
102124 
102130 
102132 
102134 
102140 
102144 
102150 
102160 
102160 
102164 
102166 
102172 
102176 
102200 
102202 
102206 
102212 
102222 
102222 
102226 
102232 
102236 
102240 
102242 
102246 
102252 
102254 
102262 



062706 000006 



012746 
012746 
010600 
104417 
062706 
016102 
016103 
016104 

010446 
010346 
010246 
012746 
012746 
010600 
104417 
062706 

012746 
012746 
010600 
104417 
062706 
0161C2 
062701 



012746 
010246 
012746 
012746 
010600 
104417 
062706 
062701 



012746 
012746 
012746 
010600 
104417 
062706 
062701 
000642 

000207 



067236 

ooooo.r 



000004 
000006 
000010 
000012 



067322 
000004 



00O012 

067351 
000001 



000004 
000014 
000016 



075200 

067434 

000003 



000010 
000004 



075200 
067452 
000002 



000006 
000004 



PRINTF 0SUMMS2 



30*5 



FIRST HEADER 



MOV 6CRD.R2 

MOV 10CR1),R3 

MOV 12CR1),R4 

PRINTF 0SUMMS3 , R2 . R3 « R4 



PRINTF 05UMMS4 



MOV 


14(Rl).R2 


ADD 


016, Rl 


CALL 


BINOEC Rl 


PRINTF 


0SUWS5.R2, OOECSTR 



AOD 04. Rl 
CALL BINOEC Rl 
PRINTF 0SUMMS6 . OOECSTR 



ADD 

MOV 

MOV 

MOV 

TRAP 

ADD 



SECOND HEADER 



AOD 


04, Rl 


BR 


5$ 


PIPOP 


R2.R3.R4 


RTS 


PC 



t RX NOT COMPLETE 

j RX COMPLETE 

i LENGTH ERRORS 

j PRINT THEM OUT 

MOV 

MOV 

MOV 

MOV 

MOV 

NOV 

TRAP 

ADO 

MOV 

MOV 

MOV 

TRAP 

ADD 

i COMPARE ERRORS 

t BYTES COMPAREO 

j PUT IMO ASCII STRING 

I PRINT THEM OUT 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

t BYTES TRANSFERED 

j PUT INTO ASCII STRING 

t PRINT 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

I POINT Rl TO NEXT TABLE ENTRY 

j DO IT ALL AGAIN 



jACTION ROUTINE TO INITIATE: THE REQUEST ID TEST TO THE SPECIFIED NODE 



06, SP 



0SUMMS2,-(SP) 

Ol.-CSP) 

SP,RO 

CiPNTF 

04, SP 



R4, -ISP) 

R3.-CSP) 

R2.-CSP) 

0SUMMS3, -(SP) 

04.-CSP) 

SP.RO 

CIPNTF 

012, SP 

0SJMMS4,-CSP) 

Ol.-CSP) 

SP,RO 

CiPNTF 

04, SP 



OOECSTR, -(SP) 

R2, CSP) 

0SUMMS5 t -(SP) 

03, -(SP) 

SP.RO 

C*PNTF 

010. SP 



OOECSTR, -(SP: 
0SUMMS6, -(SP) 
02, -(SP) 
SP.RO 
CIPNTF 
06, SP 



I FUNCTIONAL DESCRIPTION 
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SEQ 152 



5284 








5285 








5286 








5287 








5288 








5289 








5290 








5291 








5292 








5293 








5294 








5295 








5296 








5297 








5298 








5299 








5300 








5301 








5302 








5303 








5304 








5305 


102264 


105737 


003162 


5306 


102270 


001402 




5307 


1 .02272 


000137 


103240 


5308 


102276 


105037 


003160 


5309 


102302 






5310 


102320 






£311 


102322 


001012 




5312 


102324 








102324 


012746 


053051 




102330 


012746 


000001 




102334 


010600 






102336 


104417 






102340 


062706 


000004 


5313 


102344 


000137 


103240 


5314 


102350 






5315 


102360 






5316 


102376 






5317 


102400 


001535 




5318 


102402 


012737 


177776 050554 


5319 


102410 


012701 


050300 


5320 


102414 


012761 


010000 000002 


5321 


102422 






5322 


102134 






5323 


102436 


001402 




5324 


102440 


000137 


103146 


5325 


102444 






5326 


102452 






5327 


102460 






5328 


102462 


001402 




5329 


102464 


000137 


103160 


5330 


102470 


005737 


050534 


5331 


1024 74 


001412 




5332 


1024 76 








102476 


012746 


0526 7 5 




102502 


012746 


000001 




102506 


010600 





THIS SUBROUTINE BUILDS AND TRANSMITS REQUEST ID PACKETS 
TO THE NODE SPECIFIED BY THE OPERATOR IN THE COMMAND LINE. 
THE SYSTEM ID INTO Of THE SPECIFIED NODE IS THEN DISPLAYED. 
IF THE NODE DOES NOT RESPOND BEFORE 60 SECONDS HAVE PASSED 
AN ERROR IS REPORTED TO THE OPERATOR. 

INPUTS - IMPLICIT • THE SPECIFIED NODE ADDRESS IS LOCATED IN ADRBUF. 

OUTPUTS - SYSTEM ID INFO OR ERROR MESSAGE PRINTED TO OPERATOR. 

CALLING PROCEDURE - JSR PC, ACTIDT 

SIDE EFFECTS - XRGNXT POINTER IS UPDATED BY A CALL TO BLDREQ SUB. 

REGISTER USAGE - Rl POINTS TO IWDMO FOR WRITE MODE OPERATIONS. 

R2 IS SCRATCH. 

R3 POINTS TO THE RECEIVED MESSAGE BUFFER. 
R4 POINTS TO TIMOUT TIMER 



ACTIDT: 



1$; 



TSTB 


PIAERR 


BEQ 


It 


JMP 


55$ 


CLRB 


PINNUF 


CALL 


CMP ADR 


PI POP 


Rl 


BNE 


2* 


PRINTF 


GILADMS 



OADRBUf .tflLLADR 



I SEE IF ADDRESS ENTERED WAS VALID 
i IF NOT, EXIT ACTION ROUTINE 

; CLEAR NOTNUF FLAG 

i SEE IF ILLEGAL ADDRESS 



2$: 



3$: 



4$i 



JMP 


551 


PIPUSH 


R1.R2.R3.R4 , 


CALL 


CMPADR OADRBUF , OPHYADR ; 


PIPOP 


Rl I 


BEQ 


271 


MOV 


0-2.TEMP2 , 


MOV 


OIWDMO.Ri , 


MOV 


410000. 2(R1) j 


CALL 


FUNCT OWDMODE 


PIPOP 


R2 t 


BEQ 


31 , 


JMP 


401 


CALL 


BLOREQ ; 


CALL 


XMIT j 


PIPOP 


R2 t 


BF.Q 


41 t 


JMP 


451 , 


TST 


RETRYS , 


BEQ 


51 i 


PRINTF 


0RTRYSR , 



IF NO, CONTINUE 

ELSE PRINT ILLEGAL ADDRESS MESSAGE 

MOV OILADMS.-(SP) 

MOV *1.~(SP) 

MOV SP.RO 

TRAP CIPNfF 

ADD 04 , SP 

SAVE REGISTERS 

SEE IF ADDRESS IS OWN (HOST NODE) 



SET COUNTER FOR NO. OF TIMES TRIED 
SET UP TO WRITE MODE 

10000s TPAD -1 CPAD TRANSMIT BUFFERS) 
WRITE MODE 
CHECK FOR ERROR 

BR IF ERROR 

BUILD REQUEST ID MESSAGE PACKET 
TRANSMIT REQUEST 

GET RESULTS, R2 - SUCCESS/FAILURE 
IF OK BRANCH 
ELSE JUMP TO 451 
SEE IF FAILED DUE TO EXCESSIVE COLLISIONS 
IF NO, CONT. 

YES, PRINT 'EXCESSIVE COLLISIONS' MESSAGE 

MOV frRTRYER, -CSP) 
MOV 01.. (SP) 
MOV SP,RO 
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SEQ 153 





102510 


104417 






102512 


062706 


000004 


5333 


102516 


000137 


103206 


5334 


102522 


012704 


003720 


5335 


102526 


012714 


000012 


5336 


102532 








102532 


104422 




5337 


102534 


005714 




5338 


102536 


001425 




5339 


102540 






5340 


102546 






5341 


102550 


001770 




5342 


102552 


013703 


003764 


5343 


102556 






5344 


102570 


016303 


000002 


5345 


102574 


026327 


000022 051115 


5346 


102602 


001424 




5347 


102604 


005237 


050554 


5348 


102610 


001350 




5349 








5350 


102612 








102612 


012746 


065266 




102616 


012746 


000001 




102622 


010600 






102624 


104417 






102626 


062706 


000004 


5351 


102632 


005237 


050500 


5352 


102636 


000137 


1031/0 


5353 








5354 


102642 


012703 


050413 


5355 


102646 


012702 


050454 


5356 


102652 


000410 




5357 








5358 


102654 


005237 


0504 76 


5359 


102660 


062737 


000056 050510 


5360 


102666 


010302 




5361 


102670 


062702 


000042 


5362 


102674 






5363 


102714 








102714 


012746 


002322 




102720 


012746 


066440 




102724 


0127 46 


000002 




102730 


010600 






102732 


104417 






102734 


0627O6 


000006 


5364 


102740 


016302 


C00022 


5365 


102744 








102744 


010246 






102746 


012746 


066*77 




102752 


012746 


000002 




102756 


010600 






102 760 


104417 






102762 


062706 


000006 


5366 


102766 


116302 


000027 


5367 


102772 








102772 


010246 






102774 


012746 


066532 





JMP 


52$ 


5$-. 


MOV 


♦TIMERS, R4 




MOV 


♦10., (R4) 


15$: 


BREAK 






TST 


(R4) 




BEQ 


20$ 




CALL 


RECEVE 




P$POP 


R2 




BEQ 


15$ 




MOV 


RRGNXT,R3 




CALL 


GETRNX ORRGNXT 




MOV 


2CR3),R3 




CMP 


5IRCPT(R3),0»MR 




BEQ 


25$ 




INC 


TEMP2 




BNE 


15$ 


20$: 


PRINTF 


♦EMSG22 



TRAP 
ADD 

j EXIT 

i SET UP FOR 10 SECOND TIMOUT 



INC S.NflEC 

jr? 51* 

22$: MOV «UCB22*13,n3 

MOV *UCB22*54,R2 

BR 27$ 

25$: INC S.REC 

AOO ♦46..S.XFER 

MOV R3,R2 

ADD *SIADDR,R2 

27$: CALL BINHEX R2.06.0STRBUF 

PRINTF 0SIMSG1 , ♦STRBUF 



C$PNTF 
04, SP 



C*BRK 



TRAP 

j SEE IF TIME HAS EXPIRED 

l IF YES, BRANCH 

l CHECK FOR ANSWER 

I R2 HOLDS NO. OF BUFFERS RECEIVED 

I IF NO BUFFERS RECIEVED. LOOP 

j GET RECEIVE RING POINTER 

I UPDATE POINTER 

I POINT R3 TO MESSAGE BUFFER 

j SEE IF MESSAGE RECIEVED IS IN REPLY TO ONE SENT 

i ir YES, BRANCH TO 25$ 

t INCREMENT RETRY COUNTER 

l IF NO, LOOK FOR CORRECT REPLY MESSAGE 

5 ELSE. REPORT ERROR 



MOV 


♦EMSG22.-CSP) 


MOV 


*1,-(SP) 


MOV 


SP.RO 


TRAP 


C$PNTF 


ADD 


♦4,SP 



UPDATE SUMMARY DATA 
AND EXIT 

POINT R3 TO SAME PLACE IN MESSAGE AS 
IF IT WERE RECEIVED SYS ID, R2 TO 
NODt ADDRESS 

INCREMENT 'RECEIVED MESSAGES' COUNTER 
UPDATE 'BYTES TRANSFERED' COUNTER 
PUT POINTER INTO R2 
POINT R2 TO ADDRESS 
PUT ADDRESS INTO STRBUF 
PRINT REMOTE NODE ADDRESS 









MOV 


♦STRBUF, 


-CSP) 








MOV 


♦SIMSG1, 


•CSP) 








MOV 


*2.-(SP) 










MOV 


SP.RO 










TRAP 


CIPNTF 










ADD 


♦6,SP 




MOV 


SIRCPT(R3),R2 


1 GET RECEIPT NUMBER 








PRINTF 


♦SIMSG2,R2 


I PRINT RECEIPT NUMBER 


MOV 


R2.-CSP) 










MOV 


$SIMSG2, 


•CSP) 








MOV 


♦2. -(SP) 










MOV 


SP.RO 










TRAP 


C$PNTF 










ADD 


♦6,SP 




MOVB 


SIVERS(R3),R2 


l GET VERSION NO. AND 


PRINT 






PRINTF 


♦SIMSG3,R2 




MOV 


R2, -CSP) 










MOV 


0SIMSG3.- 


CSP) 
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103000 


012.746 


000002 




303004 


010600 






103006 


104417 






103010 


062706 


000006 


5368 


103014 


116302 


000030 


5369 


103020 








103020 


010246 






103022 


012746 


066572 




103026 


012746 


000002 




103032 


010600 






103034 


104417 






105036 


062706 


000006 


5370 


103042 


116302 


000031 


5371 


103046 








103046 


010246 






103050 


012746 


066613 




103054 


012746 


000002 




103060 


010600 






3 03062 


104417 






103064 


062706 


000006 


5372 


103070 


116302 


000035 


5373 


103074 








103074 


010246 






103076 


012746 


066641 




103102 


012746 


000002 




103106 


010600 






103110 


104417 






103112 


062706 


000006 


5374 


103116 


116302 


000053 


5375 


103122 








103122 


010246 






103124 


012746 


066667 




103130 


012746 


000002 




103134 


010600 






103136 


104417 






103140 


062706 


000006 


5376 


103144 


000411 




5377 








5378 


103146 








103146 


104455 






103150 


000027 






103152 


065321 






103154 


067460 




5370 


103156 


000424 




5380 








5381 


103160 








103160 


104455 






103162 


000030 






103164 


065366 






103166 


067460 




5382 








5383 


103170 






5384 


103206 


005061 


000002 


5385 


103212 






5386 


103224 






5387 


103226 


001347 




5388 


103230 







MOVB SIEC0CR3),R2 
PRINTF 0SIMSG4.R2 



MOVB SIUEC0CR3),R2 
PRINTF 0SIMSG5.R2 



MOVB SIFNCT(R3),R2 
PRINTF 0SIMSG6.R2 



MOVB SIDEV(R3),R2 
PRINTF OSIMSG7.R2 



405; 



45$} 



BR 51$ 

ERRDF 23.EMSG23.ERR1 

BR 54$ 

ERRDF 24.EMSG24.ERR1 





SEQ 154 


MOV 
MOV 
TRAP 
ADD 
j GET ECO NO, AND PRINT 


02 # -(SPj 

SP.RO 
C$PNTF 
06, SP 


MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
i GET USER ECO NO. AND PRINT 


R2.-CSP) 

0SIMSG4,-(SP) 
*2,-(SP) 
SP.RO 
C$PNTF 

06, SP 


MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 
I GET FUNCTON CODE AND PRINT 


R2.-CSP) 

0SIMSG5.-CSP) 
♦2,-CSP) 

SP.RO 
C$PNTF 
06, SP 


MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
$ GET DEVICE TYPE AND PRINT 


R2.-CSP) 

0SIMSG6,-(SP) 

02,-CSP) 

SP.RO 

C$PNTF 

06, SP 


MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
; EXIT 


R2.-C5P) 

0SIMSG7.-CSP) 

02,-CSP) 

SP.RO 

CSPNTF 

06, SP 


I ERROR -- CAN'T WRITE MODE 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERDF 
23 

EMS&23 
ERR1 



j ERROR -- CAN'T 



TRANSMIT PACKETS 

TRAP C$ERDF 

.WORD 24 
WORD EMSG24 
.WORD ERR1 



51$: 


CALL 


WRITES Ol.OAORBUF 


52$; 


ClR 


2CR1) 




CALL 


FUNCT OWOMODE 




P$POP 


R2 




BNE 


40$ 


54$; 


P$POP 


Rl.R2.R3.R4 



j UPDATE SUMMARY TABLE 

i DISABLE TRANSMIT PADDING 

I CHECK FOR ERROR 
I IF ONE, REPORT IT 
l RESTORE REGISTERS 
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SEQ 155 



5589 


103240 


000207 




5390 








5391 








5392 








5393 








5394 








5395 








5396 








5397 


103242 


105714 




5398 


103244 


001401 




5399 


103246 


000437 




5400 


103250 


012737 


062500 


5401 


103256 


013701 


002370 


540? 


103262 


006301 




5403 


103264 


062701 


003262 


5404 


103270 








103270 


012746 


054641 




103274 


012746 


000001 




103300 


010600 






103302 


104417 






103304 


062706 


000004 


5405 


103310 








103310 


013746 


002374 




103314 


013746 


002372 




103320 


011146 






103322 


012746 


055276 




103326 


012746 


000004 




103332 


010600 






103334 


104417 






103336 


062706 


000012 


5<06 


103342 


105037 


003160 


5407 


103346 


000207 




5408 








5409 








5410 








5411 








5412 








5413 








5414 


103350 


012737 


000020 


5415 


103356 


000207 




5416 








5417 








5418 








5419 








5420 








5421 








5422 








5423 


103360 






5424 


103402 






5425 


103406 


105737 


003162 


5426 


103412 


001412 




5427 


103414 








103414 


012746 


053232 




103420 


012746 


000001 




103424 


010600 






103426 


104417 






103430 


062706 


000004 



55$: 



RTS 



PC 



002310 



{ACTION ROUTINE TO CHECK FOR ADDITION PARAMETER CHANGE INPUTS 
jAND PRINT OUT NEW PARAMETER INFO WHEN ALL INPUT ARE PROCESSED 



l CHECK FOR ADDITIONAL INPUT 

I BR IF NO 

j IF YES RETURN 



ACTMSG: 


TSTB 


(R4) 




BEQ 


12$ 




BR 


50$ 


12$: 


MOV 


*CM01Y6 t KEYW01 




MOV 


PlTYPe.ftl 




ASL 


Rl 




ADD 


*MSGTAB,R1 




PRINTF 


OMSGPRM 



PRINTF 4MSG4 , C Rl ) , P$ SIZE , P $CPYS 



50$: 



CLRB 
RTS 



P$NNUF 
PC 



jGET MESSAGE TYPE ASCII STRING 


ADDRESS 


j INTO Rl 






{PRINT 'MESSAGE' COMMAND MESSAGE 




MOV 


*MSGPRM,~(SP) 




MOV 


♦l.-(SP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADD 


04. SP 


{PRINT MSG 


PARAMETERS 






MOV 


PJCPYS.-CSP) 




MOV 


P$SIZE,-CSP) 




MOV 


(Rl).-(SP) 




MOV 


0MSG4.-CSP) 




MOV 


*4,-CSP) 




MOV 


SP.RO 




TRAP 


CiPNTK 




ADD 


01?. t SP 


{CLEAR NOTNUF FLAG 







{ACTION ROUTINE TO RETURN CONTROL TO THE SUPERVISOR 

{SET EXIT FLAG 



003672 ACTEXTi MOV 

RTS 



OCEXIT.CFLAG 
PC 



{ACTION ROUTINE TO TAKE NI NOOE ADDRESS FROM INPUT STRING BUFFER 
;AND STORE IT IN THE BUFFER CALLED ADRBUF 

• 

ACTXAD: CALL EDPACK CBOADR , flADRBUF,06 {PUT NODE ADDRESS INTO ADRBUF 

P$POP P$AERR ,SET A00RESS-12 CHAR, GOOD/BAD FLAG 

TSTB P$AERR , IF GOOD. RETURN 

BEQ 10$ 

PRINTF OCADRER {ELSE, PRINT ERROR MESSAGE 

MOV 
MOV 
MOV 

TRAP CJPNTF 

ADD 04 , SP 



4CADRER.-CSP) 
*1, -CSP3 

SP.RO 
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l$ZZ \9211Z 19S9.11 003160 CLRB P*NNUF , AND CLEAR 'NOT ENOUGH' FLAG 

5429 103440 000207 10$} RTS PC 

5430 

5431 . 

5432 {ACTION ROUTINE TO STORE POINTER TO 8EGINING OF OPERATOR INPUT ADDRESS 

5433 » IN COMMAND INPUT BUFFER 

5434 { 
5435 

5436 103442 010437 002366 ACTSR4; MOV R4.CB0ADR {SAVE STRING POINTER 

5437 103446 000207 10$: RTS PC 
5438 

5439 

5440 ; 

5441 {ACTION ROUTINE TO SET MESSAGE TYPE - ALPHA FLAG 
5442 

5443 

5444 103450 012737 000000 002370 ACTALP; MOV $ALPHA,P$TYPE {SET MESSAGE TYPE 

5445 103456 000207 RTS PC 
5446 

5447 

5448 . 

5449 {ACTION ROUTINE TO SET MESSAGE TYPE * ALL ONES FLAG 

5450 , 
5451 

5452 103460 012737 000001 002370 ACTONE; MOV O0NES,P$TYPE {SET MESSAGE TYPE 

5453 103466 000207 RTS PC 
5454 

5455 

5456 . 

|457 {ACTION ROUTINE TO SET MESSAGE TYPE - ALL ZEROS FLAG 

5459 
5460 

EJ5i J23*Z° 012737 000002 002370 ACTZROi MOV OZER0S,P$TYPE {SET MESSAGE TYPE 

5462 103476 000207 RTS PC .to 

5463 
5464 

5465 . 

5466 ^ACTION ROUTINE TO SET MESSAGE TYPE - ALTERNATING ONES FLAG 
->4o t • 

5468 

I?*™ ^2^5° ° 12737 000003 002370 ACTlALs MOV O0NEALT,P$TYPE , SET MESSAGE TYPE 

5470 103506 000207 RTS PC 

5471 

5472 

54 73 , 

|*™ {ACTION ROUTINE TO SET MESSAGE TYPE - ALTERNATING ZEROS FLAG 

54 76 * 

¥iZl J235J"9 ° 12737 000004 002370 ACTOALj MOV 0ZROALT ,P$TYPE {SET MESSAGE TYPE 

5478 103516 000207 RTS PC 

5479 

5480 

5481 . 

5482 {ACTION ROUTINE TO SET MESSAGE TYPE - CCITT FLAG 

5483 , 

5484 



Bi3 
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SEQ 157 



5465 
5486 
5487 
5488 
5489 
5490 
5491 
5492 
5493 
5494 
5495 
5496 
5497 
5498 
5499 
5500 
5501 
5502 
5503 
5504 
5505 
5506 



5507 
5508 
5509 
5510 
5511 
5512 
5513 
5514 
5515 
5516 
5517 
5518 
5519 
5520 
5521 
5522 
5523 
5524 
5525 
5526 
552 7 
5528 
5529 
5530 
5531 
55 52 
5533 
5534 
5535 



103520 
103526 



103530 
103534 
103540 
103544 
103546 
103552 
103554 
103562 
103564 
103572 
103604 
103606 
103614 
103616 
105616 
103622 
103626 
103630 
103632 
103636 
103640 
103644 
103646 
103654 



103656 
103662 



103664 
103672 
103674 
103702 
103704 
103712 
103714 

103714 



012737 
000207 



105037 
004737 
105737 
001403 
105037 
000415 
022737 
001011 
012737 

000423 
022737 
001017 

012^46 
0U/46 
010600 
104417 
062706 
000406 
105737 
001003 
112737 
000207 



004737 
000207 



023727 
003410 
022737 
003404 
013737 
000410 



000005 002370 ACTCTT} 



003163 
076330 
003161 

003161 

000006 

000006 



003672 
002370 



103242 



005154 
00267 3 
003154 



000037 
003154 
002372 



MOV *CCITT,P$TYPE 
R'S PC 



tSET MESSAGE TYPE 



lACTION ROUTINE TO SET MESSAGE TYPE ■ OPERATOR SELECTED INPUT 



ACTOPR} 



10$ j 



000000 003672 20* : 



054252 
000001 



000004 
003163 

177777 003161 



CLRB 


PlMERr, 


JSR 


PC.TRVADR 


TSTB 


PIGOBO 


BEQ 


10$ 


CLRB 


PIGDBD 


BR 


20$ 


CMP 


♦OPRSEL.CFLAG 


BNE 


20$ 


MOV 


tOPRSEL.PlTYPE 


CALL 


SELMSG CBOADR 


BR 


50$ 


CMP 


♦CTARGT .CFLAG 


BNE 


50$ 



PRINTF *UN60ND 



i CLEAR MESSAGE ERROR FLAG 

iPARSE THROUGH INPUT STRING 

I TEST GOOO/BAD FLAG 

j IF GOOO, BR 10$ 

iCLEAR FLAG 

j SET CTARGT FLAG ANO RETURN 

{CHECK TO SEE IF STRING VALID 

•IF NOT OK, RETLHN WITH ERROR FLAG SET 

I SET MESSAGE TYPE 

iPUT OPERATOR SELECTED STRING INTO BUFFER 

jRETURN 

iSEE IF CTARGT a AC SET. IF YES ERROR 

j IF NOT SET, BR 301 

lELSE PRINT UNBOUNDED INPUT STRING ERR. MSG. 



MOV 
MOV 

;xdv 

TRAP 

ADO 
iRETURN 

l IF PtMERR FLAG SET, UNBOUNDED STRING 
lUAS ENTERED, ERROP ALREADY HANDLED 
j SET ERROR FLAG ANO RETURN 
I RE TURN 



^ACTION ROUTINE fO CHECK FOR MORE INPUT AFTER MESSAGE TYPE HAS BEEN 
» ALTERED 

I 





BR 


50$ 


30$: 


TSTB 


PIMERR 




BNE 


50$ 




MOVB 


♦1, PIGDBD 


50$: 


RTS 


PC 



♦Lf*OND.-(SP) 
♦l. (SP) 
SP.RO 

C$PNTF 
#4.SP 



ACTTYP- JSR 
RTS 



PC.ACTMSG 
PC 



l CHECK FOR ADDITIONAL COMMANOS 



lACTION ROUTINE TO INPUT MESSAGE 
J IT IS WITHIN LEGAL LIMITS, CHANGE 
I SEE IF MORF INPUT EXISTA 

l 

ACTSZEi CMP 
BIE 
CMP 
BLE 

MOV 
BR 



SIZE 



PARAMETER. 

PARAMETER ANO 



CHECK TO SEE IF 
THEN RETURN TO 



PINUM.031, 

10$ 

♦1467. ,P$NUM 

101 

PlNtf1,P$SI£E 

201 



012746 054061 



10* t 



PRINTF 4SX£LM P 



iCHCCK FOR VALID SIZE RANGE 



j IF VALID CONTINUE 
jSET MESSAGE SIZE 

IPRINI SUE LIMITS EXCEEDED MESSAGE 

MOV «SI£LHT ft -lSP) 



C j. '? 



ftymBGw* m%m^ G macro mi2 °° &•***-** mm page 3 o. 



ii 



SEQ 158 





mm 


012746 
010600 


000001 




105726 


104417 






103750 


062706 


000004 


5556 


105754 


004737 


103242 


5557 


103740 


000207 




5558 








5559 








5540 








5541 








5542 








554 5 








5544 








5545 








5546 


105742 


023727 


003154 


554 7 


103750 


005410 




5548 


105752 


022757 


000400 


5549 


103760 


005404 




5550 


105762 


015757 


005154 


5551 


105770 


000410 




5552 


103772 








105772 


012746 


055775 




103776 


012746 


000001 




104002 


010600 






104004 


104417 






104006 


062706 


000004 


5553 


104012 


004757 


105242 


5554 


104016 


000207 




5555 








5556 








5557 








5558 








5559 








5560 








5561 


104020 


105057 


005160 


5562 


104024 


105757 


00516? 


5563 


104030 


001051 




5564 


104032 






5565 


104036 


012702 


002514 


5566 


104042 


012705 


002404 


5567 


104046 






5568 


104060 






5569 


104062 


001416 




5570 


104064 


062703 


ooooio 


5571 


104070 


022713 


177777 


5572 


104074 


001564 




5573 


104076 








104076 


012746 


054160 




104102 


012746 


000001 




104106 


010600 






104110 


104417 






10411? 


062 706 


000004 


5574 


104U6 


000414 




5575 


104120 


005023 




5576 


104122 


005023 




5577 


104124 


005023 




5575 


104126 


005013 





20$: 



JSR 
RTS 



PC .ACTMSG 
PC 



MOV 
MOV 
TRAP 

ADO 
I CHECK FOR ADDITIONAL COMMANDS 



•1, CSP) 
SP.RO 
CIPNTF 
04, SP 



000000 
003154 

002374 



lACTION ROUTINE TO INPUT COPIES PARAMETER. CHECK TO SEE IF IT IS 
jWITHIN LEGAL LIMITS. CHANGE PARAMETER AND THEN RETURN TO SEE IF 
.MORE INPUT PARAMETERS EXIST 



iCHECK FOR VALID COPIES RANGE 



ACTCPYj CMP 


P$NUM,00 


BLE 


101 


CMP 


#256. ,P$NUM 


BLE 


101 


MOV 


P$NUM,P$CPYS 


BR 


201 



10$; 



PRINTF OCPYLMT 



iIF VALID. CONTINUE 
»SET MESSAGE COPIES 

jPRINT COPY LIMIT EXCEEDEO MESSAGE 



20$ j 



JSR 

RTS 



PC.ACTMSO 
PC 



MOV 
MOV 
MOV 
TRAP 
ADD 
I CHECK FOR ADDITIONAL COMMANOS 



OCPYLMT. -CSP) 
♦ I, -CSP) 
SP.RO 
C$PNTF 

04, SP 



»ACTION ROUTINE TO CLEAR NODE SPECIFIED BY PHYSICAL ADORESS FROM NOOE TABLE 



ACTNADi 



21$ 



CLRB 

TSTB 

BNE 

P$PUSH 

MOV 

MOV 

CALL 

P$POP 

BEQ 

AOD 

CMP 

BNE 

PRINTF 



PlNNUF 

PIAERR 

35$ 

R2.R5 

#ADRBUF,R2 

ON00TBL.R3 

CMPADR R2.R3 

Rl 

25$ 

010. R3 

•-1,(R3) 

21$ 

0NOCMPR 





BR 


50$ 


25$: 


CLR 


CR3)* 




CLR 


CR3)» 




CLR 


(Rsn 




CLR 


(R3) 



iCLEAR NOTNUF FLAG 

I SEE IF ADDRESS ENTERED WAS VALID 

I IF NOT. EXIT ACTION ROUTINE 

I SAVE R2 ANO R3 

iMOVE AOORESS OF AOORF.SS INTO R2 

iriOVE ADDRESS OF NOOE TABLE INTO R3 

I SEE IF ADDRESSES MATCH 

i IF YES. BR 25$ 

lELSE POINT R5 TO NEXT ENTRY 

I SEE If END OF TABLE 

lIF NOT, COMPARE NEXT ENTR^ 

lELSE. PRINT ADDRESS DOESN'T COMPARE MSG. 

MOV 

MOV 

MOV 

TRAP 

ADO 
I RE TURN 
I ELSE* CLEAR NQDfc; FROM TABLE 



ONOCMPR.HSP) 
01, -(SP) 

SP.RO 

CiPNTF* 

04,5P 
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5579 



5580 
5581 
5582 
5585 
5584 
5585 
5586 
5587 
5588 
5589 
5590 
5591 
5592 
5593 
5594 



5595 
5596 
5597 
559C 
5599 
5600 
5601 
5602 
5603 
5604 
5605 
5606 
5607 
5608 
5609 
5610 
5611 
5612 
5613 
5614 
5615 
5616 
5617 
5618 
5619 
5620 
*>62l 
5622 
5623 
5624 



104130 
104130 
1C4134 

104140 
104142 
104144 
104150 
104154 



104156 
104162 
104166 
104172 
104174 
104176 
104200 
104200 
104204 
104210 
104214 
104216 
104220 
104224 
104230 
104234 



104236 
104242 
10425O 
104256 
104260 
104266 
104270 
104276 
104300 
104306 
104310 
104316 
104320 
104326 
104330 
104336 
104344 
104346 
104352 
104354 



012746 054340 

012746 000001 

010600 

104417 

062706 000004 

000207 



012703 
012702 
005022 
005303 
001375 

012746 
012746 
012746 
010600 
104417 
062706 
105037 

000207 



1050*7 

013737 
022737 
001004 

000423 
022 737 
001004 

000413 
022737 
001004 

000403 

023727 
001741 
005337 
001336 
000207 



PRINTF 4ADRDEL 



305: 
35$: 



P$P0P 
RTS 



R2.R3 
PC 



lACTION ROUTINE TO CLEAR NODE TABLE 



000050 
002404 



053701 
054514 
000002 



000006 
003160 



ACTNAL! 


P$PU5i 


R2.R3 




MOV 


<►TBl.LEN.R3 




MOV 


>N00TBL,R2 


10$t 


CLK 


R2)f 




DEC 


5 




BNE 


01 




PRINTF 


OTABCLR.ONOD 



CLRB 

PIPOP 

RTS 



PINNUF 

R2,R3 

PC 



lACTION ROUTINE TO RUN SPECIFIED TEST 



003160 
003154 
000032 



I 



ACTRUNi 
002376 
002310 5$: 



000033 002310 10$ i 



000043 002310 15$; 



002376 
002376 



201 1 
1/7777 30$: 



CLRB PINNUF 

MOV P$NUH.P$PASS 

CMP ♦C^NALL.KEYWDl 

BNE 101 

CALL RUNALL 

BR 301 

CMP •CLUPPR.KEtWDl 

BNE 151 

CALL Rl**_UP 

BR 30$ 

CMP ♦C0IR.KEYWD1 

BNE 201 

CALL RUNOIR 

BR 30$ 

CALL RUK'PAT 

CMP PIPASS.Oi 

BEQ 5$ 

DEC P$PASS 

BNE 5$ 

RTS PC 



SEQ 159 



(PRINT NODE OELETED FROM TABLE MESSAGE 

MOV *ADRDEL,-CSP) 

MOV *1,-(SP) 

MOV SP.RO 

TRAP C$PNTr 

ADD 44, 5P 



jRESlORE R2 AND R3 
jRETURN 



iSAVE R2.R3 

jSET INCR. COUWTEH TO 40 
jMOVE NODE TA3LE ADDRESS INTO R2 
iCLEAR BYTE IN NOOE TABEL 
iDECRIMENT COUNTER 
iCONTINUE UNTIL DONE 
l PRINT NOOE TABLE CLEARED MESSAGE 

MOV * 



iCLEAR NOTNUF FLAG 
iRESTORE R2 ANO R3 



MOV *M00 , - ( SP ) 

MOV *TABCLR,-(SP) 

MOV *2,-(SP) 

MOV SP.RO 

TRAP C$PNTF 

ADD 06. SP 



j CLEAR 'NOT ENOUGH' FLAG 

SEE IF 'ALL' TEST 
IF NO, CONTINUE 
IF YES, 00 At.LNODE 

IS IT 'LOOPPA'R' TEST 
IF NO, CONTIKUE 
IF YES, DO 10WAIR 

IS IT 'DIRECT TEST 
IF NO. CONTINUE 
IF YES, DO DIRECT 

ELSF, ITS 'PATTERN' TEST 

SEE IF PASS SET FOR INOEFINATfc 

IF YES> LOOP 
HAVE WE DOME ALL PASSES? 

IF NO. LOOP 
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SEQ 160 



5625 
.5626 
S62 7 
5628 
5629 
5630 
5631 
5632 
5633 
5634 
5635 
5636 
5637 



5638 
5639 
5640 
5641 
5642 
5643 
5644 
5645 
5646 
5647 
5648 
5649 
5650 
5651 
5652 



5653 
5654 
5655 



5656 
5657 
5658 

5659 



104356 
104364 

104366 
104374 
104376 
104400 
104404 
104406 
104406 
104412 
104416 
104420 
104422 
104426 
104432 
104440 
104446 
104452 
104460 
104466 
104474 
104500 
104506 
104510 
104524 
104532 
104554 
104^36 
104536 
104540 
104 542 
104544 
104546 
.104566 
1C4606 
104606 
104612 
104616 
104622 
104626 
104632 
104636 
104640 
104642 
104646 
104654 
104656 
104660 
104660 
104662 
104664 
104666 



012737 
000207 



001415 
022701 
001410 

012746 
012746 
010600 
104416 
062706 
000137 
0.12737 

013701 
013737 
062737 

013702 
022737 
001515 



001404 

104456 
000045 
065366 
00OO00 



012746 
012746 
012746 
012746 
012746 
012746 
010600 
104414 
062706 



001405 

104456 
000034 
066353 
067604 



! ACTION ROUTINE TO SET 'RUN ALL' FLAG 



000032 002310 



RUNALLs 



000001 



061526 
000001 



000004 
104774 
002404 

002402 
002374 

ooooio 

002402 
177777 



MOV 


0CRNALL.KEYWD1 


RTS 


PC 


CALL 


DIRC0M 


P»P0P 


Rl 


BEQ 


5$ 


CMP 


•1.R1 


BEQ 


31 


PRINTS 


OPASABT 



002402 



050562 
002402 



002402 



3$; 
5$: 



101 j 



15$: 



17$i 



002344 
062603 
002322 
062613 
061624 
000005 



000014 



20$ { 



JMP 32$ 

MOV WOOTBL.SLOT 

CALL FULSLT 

MOV SL0T,R1 

MOV PICPYS.CPYCNV 

aoo no, SLOT 

CALL FULSLT 

MOV SL0T,R2 

CMP ♦-1.SL0T 

BEQ 25$ 

CALL BLDFAS Rl.SLOT 

CALL XMIT 

P$POP R3 

BEQ 17$ 

ERRHRD 37.EMSG24 



I SET FLAG 



RUN LOOPniRECT TEST 
CHECK RESULTS 
IF OK, BRANCH 

ELSE, WAS TABLE EMPTY? 

IF YES, DON'T PRINT ABORT MESSAGE 
ELSE ABORT TEST AND PRINT MESSAGE 

MOV OPASABT.-CSP) 

MOV 01, -(SP) 

MOV SP.RO 

TRAP C$PNTS 

ADD 04, SP 

MOVE NODE TABLE ADDRESS TO SLOT 
FINO FIRST ENTRY 

AND PUT TARGET ADDRESS INTO Rl 
SET UP LOOP FOR NO, OF COPIES 
UPDATE SLOT 
GET NEXT ASSIST NODE FROM TABLE 

SEE IF AT END OF TABLE 

IF YES. BR 
BUILD FULL ASSIST MESSAGE 
TRANSMIT MESSAGE 

CHECK RESULTS 

IF OK, CONTINUE 

PRINT ERROR MESSAGE 









TRAP 


CiERHPD 










.WORD 


37 










.WORD 


EMSG24 










.WORD 







CALL 


BINHEX R1,06,*STRBUF 


I PRINT ERROR MESSAGE 






CALL 


BINHEX R2,*6,*STRBU1 


J 








PRINTB 


0TbTMS4 , 0ARGT Y7 , 0STRBUF 


,*ARGTY6,*STRBU1 \ 


ASSIST NOOE 


» 










MOV 


•STRBU1, 


(SP) 








MOV 


♦ARGTY6. 


-(SP) 








MOV 


♦STRBUF, 


-(SP) 








MOV 


0ARGTY7, 


-(SP) 








MOV 


0TSTMS4, 


-(SP) 








MOV 


*5. (SP) 










MOV 


SP.RO 










TRAP 


CIPNTB 










AOO 


014, SP 




CALL 


RUNCOM 


i 00 RECEIVE LOOP 








P$POP 


R4 


i CHECK RESULTS 








BEQ 


21$ 


I IF OK, LOOP SOME 


MORE 






ERRHRD 


28,EMSG42,ERR3 


l ELSE PRINT ERROR 


MESSAGE 
TRAP 
.WORD 
.WORD 
.WORD 


CILRHRD 
28 

EMSG42 
ERR3 
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5660 
5661 



5662 
5663 
5664 
5665 
5666 
5667 
5668 
5669 
5670 
5671 
5672 
5673 
5674 
5675 
5676 
1,677 
5678 
5679 
5680 
5681 
5682 
5683 
5684 
5685 
5686 
5687 
5688 
5689 
5690 
5691 
5692 



5693 
5694 
5695 
5696 
5697 
5698 
5699 
5700 
5701 



104670 
104672 
104672 
104676 
104702 
104704 
104706 
104712 
104716 
104720 
104740 
104742 
104746 
104752 
104 760 
104 764 
104772 
104774 



104776 
105004 

105006 
105014 
105016 
105022 

105024 

105026 
105030 
105036 
105O44 
105052 
105054 
105054 
105060 
105064 
105070 
105072 
105074 
105100 
105104 
105)06 
105114 
105122 
105130 
105136 
105140 
105162 
105162 
105166 
105172 
105176 



000410 

012746 
012746 
010600 
104414 
062706 
005337 
001274 

000644 
062701 
010137 

013701 
022737 
001227 



012737 
000207 



022701 
001400 



005001 
012737 

022737 
001015 

012746 
012746 
012746 
010600 
104417 
^62706 
012701 
000545 
012737 
013737 

022737 
001530 



012746 
012746 
012 746 
012746 



062013 
000001 



000004 
050562 



000010 
002402 

002402 
177777 



002404 

177777 



053701 
053652 
000002 



000006 
000001 

002404 

002 ;■>;-* 



21*! 



BR 

PRINTB 



101$ 
OOKFU 



101$: 



25$ j 



002402 



32$: 



vxc 


CPYCNT 


BNE 


15$ 


CALL 


WRITES *2,R1,SL0T 


BR 


10$ 


ADO 


010. Rl 


MOV 


Rl.SLOT 


CALL 


FULSLT 


MOV 


SL0T.R1 


CMP 


0-l.SLOT 


BNE 


10$ 


RETURN 





MOV 
MOV 
MOV 
TRAP 

ADD 
DECREMENT 'COPIES' COUNTER 

IF MORE TO DO, LOOP 
ELSE, UPDATE SUMMARY TABLE 

POINT Rl To NEXT TARGET NODE 

UPDATE SLOT 

GET ADDRESS FROM TABLE 



SEE IF END OF TABLE 
IF NO, CONTINUE ELSE, FINISHED 



SEQ 161 



OOKFU, -CSP) 
01,-CSP) 
SP,RO 
C$PNTB 
44, SP 



j ACTION ROUTINE TO SET 'RUN LOOP DIRECT' FLAG 



000043 002310 



000001 



i 



ACTDIR: MOV 
RTS 



RUNOIR: 



10$ 



CALL 

P$POP 

CMP 

8EQ 

RETURN 



002402 
002402 



OIRCOM: CLR 
MOV 
CALL 
CMP 
BNE 
PRINTF 



OCDIR.KEYWDl 
PC 

DIRCOM 
Rl 

•1. Rl 

10$ 



Rl 

ONODTBL,SL0T 
FULSLT 
0-1, SLOT 
9$ 
OTABEMT.ONCD 



I SET FLAG 



l CALL COMMON CODE 

i WAS TABLE EMPTY? 

I IF YES, DON'T PRINT 



I CLEAR RESULTS REGISTER 

i MOVE NODE TABLE ADDRESS TO SLOT 

I SEE IF TABLE EMPTY 



002402 

050562 



177777 002402 



0O2322 

062173 
061571 
000003 



9$: 

io; 



15$ 



MOV 
BR 

MOV 

MOV 

CALL 

CMP 

BEQ 

CALL 

PRINTB 



01, Rl 
32$ 

ONODTBl .SLOT 

P$CP*S, CPYCNT 

FULSLT 

0-1, SLOT 

32$ 

BINHEX SLOT,06,OSTRBUF 

0TSTMS2 1 ODIRECT , OSTRBUF 



IF NO CONTINUE 

ELSE, PRINT "TABLE EMPTY" 

MOV 
MOV 

my 

MOV 

TRAP 

ADD 



j PUT 'TABLE EMPTY 1 INDICATOR IN Rl 



SET UP FOR NO. OF COPIES 
GET NEXT NODE IN TABLE 
SEE IF AT ENO OF TABLE 

IF YES, EXIT 
PRINT AODRESS BEING TESTED 

NODE ADDRESS 



MESSAGE 

ONOO, -CSP) 

OTABEMT.-CSP) 

02,-CSP) 

SP.RO 

OPNTF 

06, SP 



MOV 0STR9UK. (SP) 

MOV OOIRECT, -(SP) 

MOV 0TSTM52, -CSP) 

MOV 03, -CSP) 



C/UACBO OFUNA NI EXERCISER OIAG MACRO M1200 
CLI ACTION TABLE AND ROUTINES 



22-MAR-84 10:53 



G13 

PAGE 30-15 



570? 
5703 
5704 
5705 
5706 
5707 



5708 
5709 
5710 
5711 
5712 



5713 
5714 
5715 
5716 
5717 



5718 
5719 
5720 



5721 
5722 
5723 
5724 
5725 
5/26 
5 727 
5728 
5729 
5730 
5731 
5732 
5733 
5734 
5735 
5736 



105202 
105204 
105206 
105212 
? 05220 
105222 
105226 
1C5230 
105234 
105234 
105236 
105242 
105246 
105250 
105252 
105256 
105270 
105276 
105300 
105302 
105302 
105304 
105306 
105310 
105312 
105314 
105322 
105324 
105326 
105326 
105330 
105332 
105334 
105336 
105342 
105344 
105344 
105350 
105354 
105356 
105360 
105364 
105370 
105372 
105410 
105416 
105420 



105424 
105432 



010600 
: 044 14 
06^706 
022737 
001016 
013701 
006301 
062701 

011146 
012746 
012746 
010600 
104414 
062706 



001405 

104456 
000032 
065366 
OOOOOO 

000700 



001407 

104456 
000033 
065 7 32 
067516 
012701 
000410 

012746 
012746 
010600 
104414 
062706 
005337 
001274 

062737 
000636 



000010 
000005 

002370 

003262 



062125 
000002 



000006 



002310 



CMP 


0CPATRN,KEYWD1 


BNE 


16$ 


MOV 


P$TYPE,R1 


ASL 


Rl 


ADD 


0MSGTAD,R1 


PRINTS 


OMESPAl.(Rl) 



16$: 



25$; 



CALL 


BLDLD S 


CALL 


XMIT 


P$P0P 


R2 


BEQ 


26$ 


FRRHRD 


26.EMSG24 



26$; 



177 77/ 



O6I06I 

OOOCOX 



000004 
050562 



000010 



29$; 



MOV 

BR 

PRINTB 



101$; 

002402 30$; 
32$: 



1 



DEC 

BNE 

CALL 

ADD 

BR 

RETURN 



SLOT 



BR 


10$ 


CALL 


RUNCOM 


P$P0P 


R4 


BEQ 


29$ 


ERRHRO 


27,EMSG34,ERR2 



4-1. Rl 

?01$ 



CPYCNT 

15$ 

WRITES 01, SLOT 

010.SL0T 

10$ 

Rl 



MOV 

TRAP 

ADD 



SEQ 162 



SP,RO 
C$PNTB 
010, SP 



MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 
1 CALL BUILD LOOPDIRECT SUBROUTINE 
1 TRANSMIT LOOPDIRECT MESSAGES 
j GET RESULTS, R2 * SUCCESS/FAILURE 
j IF OK, EXIT 

i ELSE PRINT ERROR MESSAGE 

TRAP 
.WORD 
.WORD 
.WORD 



(Rl), CSP) 

OMESPAl.-(SP) 

02. -CSP) 

SP,RO 

C$PNTB 

06, SP 



C$ERHRD 
26 

EMSG24 




1 DO RECIEVE LOOP 

; GET RESULTS 

I IF NO ERRORS, CONTINUE 

TRAP 
.WORD 
.WORD 
.WORD 
{ PUT ERROR INDICATOR INTO Rl 

j RESPONSE OK 

MOV 

MOV 

MOV 

TRAP 

ADO 

1 DECREMENT 'COPIES' COUNTER 

1 If MORE TO DO. LOOP 

j ELSE, UPDATE SUMMARY TABLE 

; INCREMENT TO NEXT NODE TABLE ENTRK 



C$ERHRD 
27 

EMSG34 
ERR2 



OOK,-(SP) 
01, -(SP) 
SP.RO 
C$PNTB 
04, SP 



1 ACTION ROUTINE TO SET 'RUN L00PPA1R' FLAG 



012737 000033 
000207 



105434 005037 050552 



002310 ACTRNLj MOV 

RT3 

RUNLUP; CLR 



0CLUPPR,KEYWD1 
PC 

TEMPI 



1 SET FLAG 



j CLEAR 'HEADER PRINTED' FLAG 



KTOiBmiS B5B R Si5f?NE 
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SEQ 163 



5737 
5738 
5739 
5740 
5741 



5742 
5743 
5744 
5745 
5746 
5747 
5748 
^49 
5750 
5751 
5752 



5753 



5754 
5755 
5756 
5757 
5758 
5759 
5760 
5761 
5762 
5763 
5764 
5765 
5766 
5767 
5768 



5769 
5770 

5771 
5772 



105440 
105446 
105454 
105462 
105464 
105464 
105470 
1054 74 
105500 
105502 
105504 
105510 
105514 
105522 
105530 
105536 
105544 
105546 
105552 
105556 
105564 
105566 
105566 
105572 
105576 
105600 
105602 
105606 
105606 
105612 
105616 
105620 
105622 
105626 
105632 
105634 
105640 
105644 
105646 
105652 
105654 
105660 
105666 
105670 
105702 
105710 
105712 
105714 
105714 
105716 
105720 
105722 
105724 
105730 
105750 
105770 
105770 



012737 

022737 
001014 

012746 
012746 
012746 
010600 
104417 
062706 
0C0137 
012737 
013737 

022737 
001002 
000137 
013/01 
126127 
001422 

012746 
012746 
010600 
104417 
062706 

012 746 
012746 
01C600 
104417 
062706 
000137 
010102 
062702 
021227 
001773 
022712 
001002 
000137 
126227 
001337 



001406 

104456 
000032 
065366 
000000 
000137 



002404 
1/7777 



053701 
053632 
000002 



000006 
106524 
002404 
002374 



002402 



002402 



106524 
002402 
000007 



065637 
000001 



000004 

061526 

000001 



OCO004 
106524 

000010 
000000 

177777 

106524 
000007 



1O64A0 



MOV 


ONODTBL.SLOT 


CALL 


FULSLT 


CMP 


*-l,SLOr 


BNE 


9$ 


PRINTF 


OTABEMT,0NOD 



j MOVE NODE TABLE ADDRESS TO SLOT 
1 SEE IF TABLE EMPTY 



00240^ 9$: 
050562 10$: 



177777 002402 



000000 



J.l$: 



17$: 



JMP 30$ 

MOV ON0DTBL,SLOT 

MOV PICPYS.CPYCNT 

CALL FULSLT 

CMP 0-1, SLOT 

BNE 11$ 

JMP 301 

MOV SLCT.R1 

CMPB 7(R1),0CTARGT 

BEG 18$ 

PRINTF OEMSG32 



PRINTF OPASABT 



18$: 
112$: 



000001 110$: 
20$: 

21$: 



22$: 



012746 002344 



IMP 
MOV 
ADD 
CMP 
BEQ 
CMP 
BNE 
JMP 
CMPB 
BNE 
CALL 
CALL 
PIPOP 
BEQ 
ERRHRD 



JMP 
CALL 
CALL 
PRINTB 



30$ 

P1.R2 
O10.H2 
(R2),00 
11?$ 

*-L.(R2) 

110$ 

30$ 

7(R2),0CASIST 

17$ 

BLDAST R2.R1 

XMIT 

R4 

22$ 

26,<iMSG24 



IF NO, CONTINUE 

ELSE, PRINT "TABLE EMPTY'^ 

MOV 
MO^ 
MOV 
MOV 
TRAP 
ADD 



MESSAGE 

ONOD.-(SP) 

OTABEMT^-CSP) 

02, -(SP) 

SP.RO 

C$PNTF 

06, SP 



MOVE NODE TABLE ADDRESS TO SLOT 
SET UP FOR NO. OF COPIES 
GET NEXT NODE IN TABLE 
SEE IF AT END OF TABLE 
IF YES, EXIT 



MOVE SLOT TO Rl 
SEE IF TARGET NODE 
IF YES, BRANCH 
ELSE PRINT ERROR MESSAGE 

MOV 
MOV 
MOV 
TRAP 
ADD 



MOV 
MOV 
MOV 
TRAP 
ADD 
j EXIT 

t POINT Rl TO TARGET NOOE 
I AND R2 TO ASSIST NODE 



0EMSG32,-(SP) 
01, (SP) 
SP.RO 
C$PNTF 
64, SP 

OPASABT, -(SP) 
•l.-l'SP) 

SP,RO 
C$PNTF 
04, SP 



28$ 

BINHEX R1,06,0STRBUF 
BINHEX R2 , 06, 0STRBU1 
0TSTMS4 , 0ARGTY7 , OSTRBUF , OARGT Y* , 0STRBU1 



I IS R2 POINTING TO AN ASblST NODE? 

; IF NOT, ERROR, ELSE CONTINUE 

l BUILD TRANSMIT ASSIST MESSAGE 

j TRANSMIT MESSAGE 

l GET RESULTS, R2 - SUCCESS /FAILURE 

l IF OK, EXIT 

l ELSE PRINT ERROR MESSAGE 

TRAP C$ERHRD 
.WORD 26 
.UORD EMSG24 
♦WORD 



i PRINT rRROR MESSAGE 



ASSIST NODE • 

KOV OSTRBUi, HSP1 
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105774 


012746 


062603 




106000 


012746 


002322 




106004 


012746 


062613 




106010 


012746 


061624 




106014 


012746 


000005 




106020 


010600 






106022 


104414 






106024 


062706 


000014 


5773 


106030 






5774 


106036 






5775 


106040 


001405 




5776 


106042 








106042 


104456 






106044 


000034 






106046 


066174 






106050 


067604 




5777 


106052 


000410 




5778 


106054 








106054 


012746 


061702 




106060 


012746 


000001 




106064 


010600 






106066 


104414 






106070 


0627C> 


000004 


5779 


106074 






5780 


106106 






5781 


106114 






5782 


106116 


001276 




5783 


106120 






5784 


106140 






5785 


106160 








106160 


012746 


002344 




106164 


012746 


062603 




106170 


012746 


002322 




106174 


012746 


062613 




106200 


012746 


061624 




1062O4 


012746 


000005 




106210 


010600 






106212 


104414 






106214 


062706 


000014 


5786 


106220 






5787 


106226 






5788 


106230 


001405 




5789 


106232 








106232 


104456 






106234 


000034 






106236 


066263 






106240 


067604 




5790 


106242 


000410 




5791 


106244 








106244 


012746 


061746 




106250 


012746 


000001 




106254 


010600 






106256 


104414 






106260 


062706 


000004 


5792 


106264 






5 793 


106276 






5794 


106304 







CALL 


RUNCOM 


P$P0P 


R3 


BEQ 


23$ 


ERRHRO 


28,EMSG40,ERR3 



23$: 



BR 

PRINTS 



101$: 



25$: 



BR 
PRINTS 



102$: 



I DO RECIEVE LOOP 
I CHECK RESULTS 
t IF OK, CONT, 





SEQ 164 


MOV 


0ARGTY6.-CSP) 


MOV 


OSTRBUF, -CSP) 


MOV 


0ARGTY7, -CSP) 


MOV 


0TSTMS4, -CSP) 


MOV 


05, -CSP) 


MOV 


SP.RO 


TRAP 


C$PNTB 


ADO 


014 ,SP 



101$ 
OOKRE 



CALL 


BLOAST 


CALL 


XMIT 


P$P0P 


R4 


BNE 


21$ 


CALL 


BINHEX 


CALL 


BINHEX 


PRINTB 


0TSTMS4, 



RX.R2 



Rl, 06, OSTRBUF 
R2,O6,0STRBUi 
0ARGTY7 , OSTRBUF , 0ARGTY6 , 0STRBU1 



BUILD RECEIVE ASSIST 
TRANSMIT MESSAGE 
CHECK RESULTS 
IF OK CONTINUE, ELSE 
PRINT ERROR MESSAGE 



TRAP 
.I'ORD 
.WORD 
.WORD 



MOV 
MOV 
MOV 
TRAP 
ADD 
MESSAGE 



C$ERHRD 
28 

EMSG40 
ERR3 



OOKRE.-CSP) 
•1, -CSP) 
SP.RO 
C$PNTQ 
on , SP 



REPORT ERROR 



; 



CALL 


RUNCOM 


P$P0P 


R3 


BEQ 


25$ 


ERRHRD 


28.EMSG4 



1.ERR3 



DO RECEIVE LOOP 
GET RESULTS 
IF OK, CONT. 



ASSIST NODE 


m 




MOV 


OSTRBUl, 


-CSP) 


MOV 


+ARGT>6. 


-CSP) 


MOV 


OSTRBUF, 


-CSP) 


MOV 


0ARGTY7, 


-CSP) 


MOV 


0TSTMS4, 


-CSP) 


MOV 


05, -CSP) 




MOV 


SP.RO 




TRAP 


C$PNTB 




ADD 


014, SP 





102$ 
OOKTR 



CALL 


QLDFAS 


CALL 


XMIT 


P$POP 


R4 



R1,R2 





TRAP 


C$ERHRD 




.WORD 


28 




.WORD 


EMSG41 




.WORD 


ERR3 




MOV 


OOKTR, CSP) 




MOV 


01, -CSP) 




MOV 


SP.RO 




TRAP 


C$PNTB 




ADD 


0<\SP 


i BUILD FULL ASSIST 


MESSAGE 




j TRANSMIT MESSAGE 







I CHECK RESULTS 



CZUACBO DEUNA NI EXERCISER 
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SEQ 165 



5795 


j. 06306 


001402 




5796 


106310 


000137 


105714 


5797 


106314 






5798 


106334 






5799 


106354 








106354 


012746 


002344 




106360 


012746 


062603 




106364 


012746 


002322 




106370 


012746 


062613 




106374 


012746 


061624 




106400 


012746 


000005 




106404 


010600 






106406 


104414 






106410 


062706 


000014 


5800 


106414 






5801 


106422 






5802 


106424 


001405 




5803 


106426 








106426 


104456 






106430 


000034 






106432 


066353 






106434 


067604 




5804 


106436 


000410 




5805 


106440 








106440 


01274S 


062013 




106444 


012746 


000001 




106450 


010600 






106452 


104414 






106454 


062706 


000004 


5806 


106460 


005337 


050562 


5807 


106464 


001402 




5808 


106466 


000137 


105670 


5809 


106472 






5810 


106510 


062702 


000010 


5811 


106514 


010237 


002402 


5812 


106520 


000137 


105522 


5813 


106524 






5814 








5815 


106526 


005737 


050534 


5816 


106532 


001120 




5817 


106554 


012704 


003720 


5818 


106540 


012714 


000012 


5819 


106544 


005002 




58^0 


106546 








106546 


104422 




5821 


106550 


005714 




5822 


106552 


001516 




5823 


106554 






5824 


106562 






5825 


106564 


001770 




5826 


106566 


063737 


050560 


5827 


106574 


005237 


0504 76 


5828 


106600 


013703 


003764 


5829 


106604 






5830 


106616 


016301 


000006 


5831 


106622 


04;. 701 


170000 


5832 


106626 


162701 


000004 



26$! 



BEQ 

JMP 

CALL 

CALL 

PRINTB 



26* 

21$ 

BINHEX R1.06.0STRBUF 

BINHEX R2,O6,0STRBUl ; 

0TSTMS4 , 0ARGTY7 , OSTRBUF , 0ARGTY6 . 0STRBU1 



; IF OK CONTINUE, ELSE REPORT ERROR 



I PRINT ERROR MESSAGE 



28$: 



CALL 
P$POP 
BEQ 
ERRHRD 



BR 

PRINTB 



RUNCOM 

R3 

28$ 

28,EMSG42,ERR3 



103$ 
OOKFU 



050510 



103$; 


DEC 


CPYCNT 




BEQ 


29$ 




JMP 


20$ 


29$ J 


CALL 


WRITES 02,R1,R2 




ADD 


O10,R2 




MOV 


R2.SL0T 




JMP 


10$ 


30$; 


RETURN 




RUNCOM: 


1ST 


RETRYo 




BNE 


38$ 




MOV 


0TIMERS,R4 




MOV 


010..CR4) 




CLR 


R2 


35$; 


BREAK 






TST 


(R4) 




BEQ 


40$ 




CALL 


RECEVE 




P$POP 


Rl 




BEQ 


35$ 




ADO 


XFER.S.XFER 




INC 


S.REC 




MOV 


RRGNXT,R3 




CALL 


GETRNX ORRGNXT 




MOV 


6(R3).R1 




8IC 


0170000, Rl 




SUB 


04, Rl 



I DO RECEIVE LOOP 

» CHECK RESULTS 

l IF NO ERRORS, CONT 



ASSIST NODE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 



TRAP 
.WORD 
.WORD 
.WORD 



MOV 
MOV 
MOV 
TRAP 
ADD 
l DECREMENT 'COPIES' COUNTER 
j IF MORE TO DO, LOOP 



0STRBU1.-CSP) 

0ARGTY6,-CSP) 

OSTRBUF,~(SP) 

0ARGTY7.-CSP) 

0TSTMS4, ~(SP) 

05,-CSP) 

SP,RO 

C$FNTB 

014, SP 



C$ERHRD 
28 

EMSG42 
ERR3 



OOKFU, -CSP) 

• X.-(SP) 

SP.RO 
C$PNTB 
04, SP 



j FLSE, UPDATE SUMMARY TABLE 

j INCREMENT TO NEXT NODE TABLE ENTRY 



t SEE IF FAILED DUE TO EXCESSIVE COLLISIONS 

; IF YES, BR, ELSE CONT. 

I SET UP FOR 10 SECOND TIMOUT 

j CLEAR RESULTS REGISTER 

TRAP C$BRK 
I SEE IF TIME HAS EXPIRED 
l IF YES, BRANCH 
j CHECK FOR ANSWER 

I R2 HOLDS NO. OF BUFFERS RECEIVED 
i IF NO BUFFERS RECIEVED, LOOP 
j UPDATE BYTES TRANSF^RED SUM. COUNTER 
i UPDATE PACKETS RECEIVED SUM, COUNTER 
i GET RECEIVE RING POINTER 
I UPDATE POINTER 

l GET PACKE1 LENGTH FROM DISCRIPTOR 
i ZERO OUT EXCESS INFQR 
j SUBTRACT CRC BYTES 
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002312 



K13 



5833 


10663.: 


020137 


050566 


5834 


106636 


001423 




5835 


106640 


005237 


050502 


5836 


106644 


012737 


062342 


5837 


106652 


012702 


177777 


5838 


106656 








106656 


010146 






106660 


013746 


050566 




106664 


012746 


067117 




106670 


012746 


000003 




106674 


010600 






106676 


104415 






106700 


062706 


000010 


5839 


106704 


000450 




5840 


106 706 


016303 


000002 


5841 


106712 


066303 


000016 


5342 


10673.6 


062703 


000030 


5843 


106722 


063737 


002372 


5844 


106730 






5845 


106750 






5846 


106752 


001425 




5847 


106754 


060337 


050504 


5848 


106760 


012737 


062351 


5849 


106766 


012702 


177777 


5850 


106772 


000415 




5851 








5852 


106774 


012737 


062016 


5853 


107002 


012702 


177777 


5854 


107006 


000407 




5855 








5856 


10 7010 


005237 


050500 


5857 


107014 


012737 


062302 


5858 


107022 


012702 


177777 


5859 








5860 


107026 






5861 








5862 








5863 








5864 








5865 








5866 








5867 


107032 


012737 


000005 


5868 


107040 


000207 




5869 








5870 








5871 


107042 






5872 


107046 


005037 


002370 


5873 


107052 






5874 


107060 






5875 


107062 


001405 




5876 


107064 


022701 


000001 


58 77 


107070 


001406 




5876 


107072 


005237 


002370 


5879 


107076 


022737 


000005 


5880 


107)04 


002362 




5881 


107106 






5862 


107112 
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CMP 


Rl.BUFXEN , 


BEU 


37$ , 


INC 


S.LEN , 


MOV 


♦LENGTH, KEYWD2 j 


MOV 


♦-i,R2 i 


PRINTX 


♦LGEBMS,BUFLEN,R1 j 



37* s 



050506 



002312 



002312 38$: 



002312 



40$: 



50$: 



BR 50$ 

MOV 2(R3),R3 

ADD 16CR3),R3 

ADD 430, R3 

ADD P$SIZE,S.BYTE 

CALL DATCMP P$SIZE,CMPBUF,R3 

P$POP R3 

BEQ 50$ 

ADD R3.S.C0MP 

MOV ♦C0MPAR.KEYWD2 

MOV ♦-1.R2 

BR 50$ 

MOV ♦RETRY, KEYWD2 

MOV ♦-1,R2 

BR 50$ 

INC S.NREC 

MOV ♦N0RESP.KEYWD2 

MOV ♦-1.R2 

RETURN R2 



j ACTION ROUTINE TO SET 'RUN PATTERN' FLAG 



002310 



} 



ACTPATj MOV 
RfS 



Rl.-CSP) 

BUFLEN.-(SP) 

♦LGERMS.-CSP) 

♦3,-CSP) 

SP.RO 

C$PNTX 

01O,SP 



SEQ 166 

CHECK FOR LENGTH ERROR 
IF OK, BR 

ELSE, UPDATE LENGTH ERRORS COUNTER 
MOVE 'LENGTH' TO ERROR INDICATOR 
INDICATE ERROR TO R2 
PRINT LENGTH ERROR MESSAGE 

MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
ANO EXIT 
POINT R3 TO MESSAGE BUFFER 
POINT R3 TO DATA AFTER SKIP COUNT 
POINT R3 TO FIRST DATA BYTE 
UPDATE BYTES COMPARED SUMMARY COUNTER 
CHECK FOR DATA COMPARE ERRORS 
CHECK RESULTS 
IF ERRORS 

UPDATE COMPARE ERRORS SUMMARY COUNTER 
MOVE 'COMPARE' TO ERROR INDICATOR 
INDICATE ERROR TO R2 



I MOVE 'EXCESSIVE COLLISIONS' TO ERROR INCICATOR 
} INDICATE ERROR IN R2 



i UPDATE MESSAGES NOT RECEIVED COUNTER 
i MOVE 'NO RESPONCE' TO ERROR INDICATOR 
5 INDICATE ERROR TO R2 



} RETURN 



♦CPATRN.KEYWD1 
PC 



RUNPAT: P$PUSH P$TYPE 



002370 



5$: 

10$: 

15$. 



CLR 

CALL 

P$POP 

BEQ 

CMP 

BEQ 

INC 

CMP 

BGE 

P$POP 

RETURN 



P$TYPE 
OIRCOM 
Rl 
10$ 

♦i.Ri 

15$ 

PiTYPE 
«5,P$TYPE 
51 
P$TYPE 



j SET FLAG 



j SAVE TYPE PARAMETER 
j SET TYPE TO FIRST TYPE 
SEND MESSAGES 

GET RESULTS TO KEEP STACK IN ORDER 
IF OK, CONT 
ELSE, WAS TAB! E FMPTY 
IF YES, RETURN 
SET to NEXT TYPE 
SEE IF DONE ALL OF THEM 

IF NOT, 00 MORE 
RESTORE MESSAGE TYPE 
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SEQ 167 



5883 
5884 
5885 
5886 
5887 
5888 
5889 
5890 
5891 



5892 



5893 
5894 
5895 
5896 
5897 
5898 
5899 
5900 
5901 
5902 
5903 
5904 
5905 



5906 



5907 
5908 
5909 
5910 
5911 
5912 
5913 



107114 
107120 
107122 
107126 
107126 
107132 
107136 
107140 
107142 
107146 
107146 
107152 
107156 
107160 
107164 
107170 
107172 
107174 
107200 
107204 



107206 
107214 
107222 
107230 
107230 
107234 
107240 
107242 
107244 
107250 
107250 
107254 
107260 
107264 
107270 
107274 
107276 
107300 
107304 
107310 



013701 
006301 
062701 

012746 
012746 
010600 
104417 
062706 

013746 
013746 
011146 
012746 
012746 
010600 
104417 
062706 
105037 
000207 



012737 
012737 
012737 

012746 
012746 
010600 
104417 
062706 

013746 
013746 
013746 
012746 
012746 

oi or oo 

104417 
062706 
105<~37 
000207 



002370 
003262 

054641 
000001 

000004 

002374 
002372 

055276 

000004 



000012 
003160 



000012 
003160 



{ACTION ROUTINE TO SHOW THE CURRENT MESSAGE PARAMETERS 



} 



ACTSMSj 



MOV 


PITYPE.R1 


ASL 


Rl 


ADD 


OMSGTAB.Rl 


PRINTF 


OMSGPRM 



jGET MESSAGE TYPE INTO Rl 

{MULTIPLY BY 2 

lADD MESSAGE TABLE OFFSET 

{PRINT MESSAGE PARAMETER MESSAGE 



PRINTF «MSG4,CR1),P$SIZE,P$CPYS 



CLRB 
RTS 



P$NNUF 
PC 



MOV 


OflSGPRM.-CSP.) 


MOV 


Ol.-(SP) 


MOV 


SP.RO 


TRAP 


CiPNTF 


ADD 


04, SP 


{PRINT PARAMETERS 




MOV 


P*CPY5,-(Sh) 


MOV 


P$SIZE,-(SP) 


MOV 


CRD.-CSP; 


MOV 


*MSG4,-(SP) 


MOV 


•4.-CSP) 


MOV 


SP.RO 


TRAP 


CJPNTF 


ADO 


012, SP 



{ACTION ROUTINE TO CLEAR iHE CURRENT MESSAGE PARAMETERS AND 
;RESET THEM TO THE DEFAULT VALUE 



000000 002370 
001000 002372 

000001 002374 

053716 
00C001 



000004 

002374 
002372 
003262 
055276 
000004 



ACTCMS; 



MOV *ALPHfc,P$TYPE 

MOW 0512.,P$SIZE 

MOV 01,P$CPYS 

PRINTF 4CLRMSG 



{RESET 
{RESET 
{RESET 
{PRINT 



TYPE 
SIZE 
COPIES 
MESSAGE 



PRINTF 0MSG4,MSGTAB,P*SIZE,P$CPYS 



CLRB 
RTS 



PiNNUF 
PC 



PARAMETERS RESET 
MOV 
MOV 
MOV 
TRAP 
ADD 
{PRINT PARAMETERS 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 

ADD 
{CLEAR NOTNUF FLAG 



MESSAGE 

*CLRMSG ( -(SP) 

♦l.-CSP) 

SP.RO 

CiPNTF 

*4. SP 

P$CPYS,-(SP) 
P$SIZE.-(SP) 
MSGTAB. (SPJ 
<>MSG4, -(SP) 
•4,-CSP) 
SP.RO 
CSPNTF 
012. SP 



{ACTION ROUTINE TO SET SHOW COUNTERS FLAG 



fflflffliBffUE K£ r S6I?nI 



M13 
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SEQ 168 



5914 
5915 
5916 
5917 
5918 
5919 
5920 
5921 
5922 



5923 



5924 
5925 



5926 
5927 



5928 



5929 



5930 
5931 



107312 
107324 
107326 
107330 



107334 
107356 
107356 
107362 
107366 
107372 
107374 
10/776 
107402 
107402 
1C7406 
107412 
107416 
107420 
107422 
107426 
107440 
107440 
107444 
1C7450 
107454 
107456 
107460 
107464 
107476 
107476 
107502 
107506 
107512 
107514 
107516 
107522 
107522 
107526 
107532 
107536 
107540 
107542 
107546 
107546 
107552 
107556 
107562 
107564 
107566 
107572 
107604 
107604 
107610 
107bl4 



ACTCNT; 



001402 

000137 110356 



012746 
012746 
012746 
010600 
104417 
062706 

013746 
012746 
012746 
010600 
104417 
062706 



012746 
012746 
012746 
010600 
104417 
062706 



012746 
012746 
012746 
010600 
104417 
062706 

013746 
012746 
012746 
010600 
104417 
062706 

013746 
012746 
012746 
010000 
104417 
062706 



012746 
012746 
012746 



002322 
062703 
000002 



000006 

050162 
062763 
OOC002 



000006 



075200 
063032 
000002 



000006 



075200 
063066 
000002 



000006 

050174 
063133 
000002 



000006 

050176 
063210 
000002 



000006 



75200 
063260 
000002 



21$ 



CALL 
PiPOP 
BEQ 
JMP 



CALL 
PRINTF 



CALL 
PRINTF 



CALL 
PRINTF 



KUNCT 
Rl 
21$ 
40$ 



ORDCNTS 



{READ COUNTERS 
{CHECK RESULT 
l BRANCH IF ERROR 



; PRINT COUNTER INFO 



BINHEX OFH YADR , 06 , 05TRBUF 
GCNTROO.OSTRBUF 



{GET ADDRESS INTO ASCII 



PRINTF 0CNTR01,UCB12»2 



BINDEC 0UCB12*4 
GCNTR02.0DECSTR 



BINDEC 0UCP12*10 
«CNTrO3,0DECSTR 



PRINTF tfCNTR04,UCB12*14 



PRINTF 0CNTR05,UCB12*16 



CALL BINDEC «UCB12>20 
PRINTF OCNTR06.0DECSTR 



MOV 


OSTRBUF, 


-CSP) 


MOV 


OCNTROO, 


-CSP) 


MOV 


02, -CSP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADD 


06, SP 




MOV 


UCB12+2, 


-CSP) 


MOV 


0CNTR01. 


-CSP) 


MOV 


02, -CSP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADD 


06, SP 




MOV 


ODECSTR, 


- C SP ) 


MOV 


0CNTR02, 


-CSP) 


MOV 


02,-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADD 


06, SP 




MOV 


ODECS *R, 


-CSP) 


MOV 


0CNTR03, 


•CSP) 


MOV 


#2, -CSP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADD 


06, SP 




MOV 


UCB12»14, 


, -CSP) 


MOV 


0CNTR04, 


-CSP) 


MOV 


02,-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADD 


06,SP 




MOV 


UCB12*16, 


-CSP) 


MOV 


0CNTR05.- 


•CSP) 


MOV 


02. -CSP) 




MOV 


SP.RO 




TRAP 


C*PNTF 




ADD 


06, SP 




MOV 


ODECSTR, 


(SP) 


MOV 


0CNTR06, ■ 


•CSP) 


MOV 


02, -CSP) 





&n?« u M SJSB R H8f 



R J 

in! 



:AG MACRO M1200 



N13 

22-MAR-84 10;53 PAGE 30-22 



5932 
5933 



5934 



5965 



5936 
5937 



5938 
5939 



5940 
5941 



5942 
5943 



107620 
107622 
107624 
107630 
107642 
107642 
107646 
107652 
107656 
107660 
107662 
107666 
107666 
1076"'2 
107676 
107702 
107704 
107706 
107712 
107712 
107716 
107722 
107726 
107730 
107732 
107736 
107750 
107750 
107754 
107760 
107764 
107766 
107770 
107774 
110006 
110006 
110012 
110016 
110022 
110024 
110026 
110032 
11004 1 
110044 
110050 
110054 
110060 
110062 
110064 
110070 
110102 
110102 
110106 
110112 
110116 
110120 
110122 



010600 
104417 
062706 



012746 
012746 
012746 
010600 
104417 
062706 

013746 
012746 
012746 
01060 J 
104417 
062706 

013746 
012746 
012746 
010600 
104417 
062706 



012746 
012746 
012746 
010600 
104417 
062706 



012746 
012746 
012746 
010600 
104417 
062706 



012746 
012746 
012746 
010600 
104417 
062706 



012746 
012746 
012746 
010600 
104417 
062706 



000006 



075200 
063317 
000002 



000006 

050210 
063367 
000002 



000006 

050212 
063442 
000002 



000006 



075200 
063513 
000002 



000006 



075200 
063552 
000002 



000006 



075200 
063622 
000002 



000006 



075200 
063670 
000002 



000006 



CALL BINDEC 4UCB12*24 
PRINTF 0CNTR07 , 4DECSTR 



PRINTF 4CNTR08,UCB12*30 



PRINTF 4CNTR09 , UCB12 *32 



CALL BINDEC 4UCB12>34 
PRINTF 4CNTR10 , 4DECSTR 



CALL BINDEC 4UCB12*40 
PRINTF 4CNTR11 , 4DECSTR 



CALL BINDEC 4UCB12*44 
PRINTF 4CNTR12.4DECSTR 



CALL BINDEC 4UCB12»50 
PRINTF 4CNTR13.4DECSTR 





SEQ 169 


MOV 


SP.RO 




TRAP 


C5PNTF 




ADD 


46, SP 




MOV 


4DECSTR, 


-CSP) 


MOV 


4CNTR07, 


-CSP) 


MOV 


#2. -CSP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




AOD 


46, SP 




MOV 


UCB12*30 


.-CSP) 


MOV 


4CNTR08, 


-CSP) 


MOV 


42. -CSP) 




MOV 


SP.RO 




TRAP 


CJPNTF 




ADD 


46, SP 




MOV 


UCB12*32 


-CSP) 


MOV 


4CNTR09, 


•CSP) 


MOV 


42, -CSP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADD 


46, SP 




MOV 


40ECSTR, 


-CSP) 


MOV 


4CNTR10, 


-CSP) 


MOV 


42. -CSP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADD 


46, SP 




MOV 


40ECSTR, 


•CSP) 


MOV 


4CNTR11, 


-CSP) 


MOV 


42, -CSP) 




MOV 


SP.RO 




TRAP 


CSPNTF 




ADD 


46, SP 




MOV 


4DECSTR, 


CSP) 


MOV 


4CNTR12. 


-CSP) 


MOV 


02, -CSP) 




MOV 


SP.RO 




TRAP 


CSPNTF 




ADD 


46, SP 




MOV 


4DECSTR, 


•CSP) 


MOV 


4CNTR13, 


CSP) 


MOV 


42, CSP) 




MOV 


SP.RO 




TRAP 


CSPNTF 




ADD 


46, SP 
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5944 
5945 



5946 
5947 



594B 
5949 



5950 



5951 



5952 



5953 
5954 

5955 



5956 
5957 
5950 
5959 

5V6Q 



110126 
110140 
110140 
110144 
110150 
110154 
110156 
110160 
110164 
110176 
110176 
110202 
110206 
110212 
110214 
110216 
110.722 
110234 
110254 
110240 
110244 
110250 
110252 
110254 
110260 

110260 

110264 
110270 
110274 
110276 
110300 
110504 
110504 
110510 
110514 
110520 
110522 
110524 
110530 
110550 
110554 
110540 
110544 
110546 
110550 
110554 

110556 
110556 
110560 
110562 
110564 

110566 

410372 



012746 
012746 
012746 
010600 
104417 
062706 



012746 
012746 
012746 
010600 
104417 
062706 



012746 
012746 
012746 
010600 
104417 
062706 

013746 
012746 
012746 
010600 
104417 
062706 

013746 
0X2746 
012746 
010600 
104417 
062706 

Ol37s6 
012746 
012746 
010600 
104417 
062706 
000404 



104456 
000057 
065576 
000000 

105057 
000207 



075200 
065755 
000002 



000006 



075200 

065771 
000002 



000006 



075200 
064033 
000002 



000006 

050250 
064101 
000002 



000006 

050252 
064154 
000002 



000006 

050254 
064221 
000002 



000006 



0031*0 



CALL BINOEC *UCB12»54 

PRINTF 4CNTR14 , 0DECSTR 



CALL BINOEC <K>CB12»60 

PRINTF 0CNTR15,*DECSTR 



CALL BINOEC #UCB12»64 

PRINTF OCNTR16.00EC5TR 



PRINTF 0CNTR17 # UCB12»70 



PRINTF 0CNTR18,UCB12»72 



PRINTF *CNTR19,UCB12»74 



401 j 



BR 501 

ERRNRO 3i,EMSG31 





SEQ 170 


MOV 


♦OECSTR, 


-CSP) 


MOV 


*CNTR14, 


•CSP) 


MOV 


♦2, -CSP) 




MOV 


SP.RO 




TRAP 


CIPNTF 




ADD 


♦6.SP 




MOV 


GOECSTR, 


-CSP) 


MOV 


4CNTR15, 


■CSP) 


MOV 


42, CSP) 




MOV 


SP.RO 




TRAP 


CIPNTF 




ADD 


♦6.SP 




MOV 


♦OECSTR. 


■CSP) 


MOV 


♦CNTR16. ■ 


■CSP) 


MOV 


♦2. CSP) 




MOV 


SP.RO 




TRAP 


CIPNTF 




ADD 


#6.SP 




MOV 


UCB12»70 ( 


,-CSP) 


MOV 


•CNTR17,. 


•CSP) 


MOV 


#2, -CSP) 




MOV 


SP.RO 




TRAP 


CIPNTF 




ADO 


♦6.SP 




MOV 


UCB12*72, 


,-CSP) 


MOV 


♦CNTR18.- 


•CSP) 


MOV 


♦2, -CSP) 




MOV 


SP.RO 




TRAP 


CIPNTF 




ADD 


♦6.5P 




MOV 


UC812.74, 


, CSP) 


MOV 


♦CNTR19.- 


CSP) 


MOV 


♦2. CSP) 




MOV 


SP.RO 




TRAP 


CIPNTF 




ADD 


06, SP 




TRAP 


C*ERH*D 




.WORD 


31 




.WORD 


Ertijy^; 




♦ WORD 








504: 



CLRQ PINNUF 

RTS PC 
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SEQ 171 



5961 








5962 








5963 








5964 








5965 


110374 


105037 


003160 


5966 


110400 


012737 


002404 


5967 


1104 Of> 






5960 


110414 


022737 


177777 


5969 


110422 


001437 




5970 


110424 








110424 


012746 


053462 




1104 30 


012746 


0OO001 




110434 


010600 






1104 36 


104417 






110440 


062706 


000004 


5971 


110444 






5972 


110452 


022737 


177777 


5973 


110460 


001432 




5974 


110462 






5975 


110504 






5976 


110512 


062737 


0O0010 


5977 


110520 


000751 




5976 


110522 








110522 


012746 


053701 




110526 


012746 


053632 




110532 


012746 


000002 




110536 


010600 






110540 


104417 






110542 


062706 


000006 


5979 


110546 


000207 




5980 








5961 








5962 








5963 








5964 








5965 








5986 








5987 


110550 






5988 


110552 


013702 


003154 


5989 


110556 


006302 




5990 


110560 


006302 




5991 


110562 


006302 




5992 


110564 


062702 


002404 


5993 


110570 


005022 




5994 


110572 


005022 




5995 


110574 


005022 




5996 


110576 


005012 




5997 


11C600 






5998 


110602 


105037 


0O3160 


5999 


1106O6 








110606 


013746 


0O3154 




110612 


012746 


054426 




110616 


012746 


000002 




110622 


010600 






110624 


104417 






110626 


062706 


000006 


6000 


110632 


000207 





002402 
002402 



j ACTION ROUTINE TO PRINT OUT THE NODE TABLE 

l 

ALTSND 



CLRB 


P$NNUF 


MOV 


•NODTBL.SLOT 


CALL 


FULSLT 


CMP 


•-1.SL0T 


BEQ 


151 


PRINTF 


•NTBHOR 



»MOVE NODE TABLE ADDRESS INTO SLOT 

I SEP IF TABLE EMPTY 

I IF YES, DON'T PRINT HEADER 



002402 



002402 



10$ 



15$: 



CALL 


FULSLT 


CMP 


♦•I, SLOT 


BEQ 


20$ 


CALL 


BINMEX SLOT.06.OSTRBUF 


CALL 


PRTNOO 


ADD 


♦6.. SLOT 


BR 


10$ 


PRINTF 


•TABEMT.ONOD 



l PRINT NODE TABLE HEADER 

MOV 

MOV 

MOV 

TRAP 

ADO 
iFINO LOCATION IN TAI?».E WITH AN 
l CHECK IF AT END OF ..ABLE 
l IF YES, RETURN 

lELSE, PUT ASCII ADDRESS INTO BUFFER 
iPRINT UOOE TABLE ENTRY 

iINCR. SLOT TO POINT TO NEXT TABLE ENTRY 
iCONTINUE UNTIL ALL ENTRIES PRINTED 



•NTBMDR, -CSP) 
• 1,-CSP) 

SP.RO 
C$PNTF 
•4,SP 
ADDRESS 



20$ 



I 



lACTION 
» FROM T> 

I 











MOV 


•NOO, (SP) 










iKDV 


•TABEMT, -CSP) 










MOV 


•2, (SP) 










MOV 


SP,RO 










"RAP 


C$PNTF 










ADD 


•6.SP 


RTS 


PC 






jRETURN 




ROUTINE 
€ NOOE 


TO CLEAR 
TABLE 


A 


NODE 


SPECIFIED BY NODE LOGICAL NAME 




P$PUSH 


R2 






■SAVE R2 




MOV 


P$NUM,R2 






iPUT NOOE LOGICAL NUMBER INTO 


R2 


ASL 


R2 






jf*A.TIPLY BY 8 




ASL 


R2 






iNOOE TABLE ADDRESS • 




ASL 


R2 






I (LOG. NO, X 6) ♦ •NOOTBL 




ADD 


•NOD TBI J 


R2 




j ADO OFFSET 




CLR 


(R2)» 






iCLEAR ENTRY (8 BYTES) 




CLR 


(P2)* 










CLR 


(R2)» 










CLR 


(R21 










P$POP 


R2 






, RESTORE R2 




CLRB 


P$**JF 






iCLEAR NOTNUF FLAG 




PRINTF 


•LOGDEL.I 


P$NUM 


iPRINT MESSAGE INDICATING DELETION 



RTS 



PC 



I RETURN 



MOV P$NuM t (SP) 

MOV •LOGDEL, ^CSP) 

MOV #2, (SP) 

MOV SP.RO 

TRAP CIPNTF 

ADO «6»-P 
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SEQ 172 



6001 
6002 
6003 
6004 
6005 
6006 
6007 
6006 
6009 
6010 



6011 
6012 
6013 
6014 
6015 
6016 
6017 
6018 
6019 
6020 



6021 
6022 
6021. 
6024 
6025 
6026 
6027 
6028 
6029 
6030 
6031 
6032 
6033 
6034 



6035 
6036 
6037 

6038 
6039 
6040 
6041 



110634 
110640 
110652 
110654 
110656 
110656 
110660 
110662 
110664 
110666 



110670 
110674 
110700 
110704 
110704 
110710 
110714 
110720 
110722 
110724 
1.10730 



110754 
110740 
110744 
110/50 
110 752 
110756 
110762 
110766 
110766 
110772 
110776 
111002 
111004 
1110O6 
111012 
111016 
111020 
111022 
111024 
111030 
111034 



105037 003160 



001404 

104456 
000036 
065531 
000OO0 
000207 



012702 
012703 

012746 

012746 
012746 
010600 
104417 
062706 
000137 



105037 

121427 
001002 
000137 
012703 
012702 

012746 
012746 
012746 
010600 
104417 
062706 
012701 
012223 
005301 
001375 

105037 
000207 



002401 
002530 

054620 
054561 
00\>002 



000006 
111012 



003160 

000057 

111024 
002404 
002530 

054627 
054561 
000002 



000006 
000050 



003160 



jACTION ROUTINE TO INITIATE A UNA PORT COMMAND 



ACTFCT: CLRB 


PINNUF 


CALL 


FUNCT PINUM 


PI POP 


Rl 


BEQ 


1* 


ERRMRD 


30.EMSG30 



11} 



RTS 



PC 



l ACTION ROUTINE TO SAVE NODE TABLE 



l 



ACTSAVj PI°USH 
MOV 
MOV 
PRINYF 



R2.R3 

#N00TBL,R2 

#SAVTBL # R3 

*UNSMSG,*SAVED 



JMP 



5AVC0M 



l 



ACTUNSs 



51 



ROUTINE 


TO UNSAVE NODE 


CLRB 


PINNUF 


PIPUSM 


R2.R3 


CMPB 


(R4),057 


BNE 


51 


JMP 


QUIT 


MOV 


♦N00TBL.R5 


MOV 


•SAVTBL.R2 


PRINTF 


0UNSMSG,<?RESTOR 



TABLE 



SAVCOM: 


MOV 


♦TBILEN.R1 


10$: 


MOV 


(R2)»,CR3>» 




DEC 


Rl 




8N£ 


10* 


QUIT} 


PIPOP 


R2.R3 




CLRB 


PINNUF 




RTS 


PC 



I CLEAR NOTNUT FLAG 




iCALL FUNCTION ROUTINE 


WITH FUNCTION CO 


1 CHECK RESULTS 




» IF OK EXIT 




I ELSE REPORT ERROR 






TRAP CIERHRD 




. WORD 30 




.WOAD EMSG30 




.WORD 



I SAVE R2 ANO R3 

l SET REGISTERS FOP COPYING 

»R2 ■ FROM, R3 - TO 

iPRINT 'TABLE SAVED* MESSAGE 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 



* CLEAR 'NOT ENOUGH 1 FLAG 
i SAVE R2 AND R3 



iSET REGISTERS F0« COPYING 

|R2 • FROM, R3 • TO 

iPRINT 'TABLE RESTORED' MESSAGE 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

iMOVE TABLE LENGTH TO Rl 

I MOVE WORD 

i DECREMENT COUNTER 

I IF MORE, LOOP 

I ELSE, RESTORE COUNTERS 

I CLEAR 'NOT ENOUGH' FLAG 



♦SAVED, (5.*) 

♦UNSMSG.-(SP) 

«2,-(SP) 

SP,RO 

CIPNTF 

06.SP 



•RESTOR. -CSP) 
*JNSMSG, *(SP) 
♦2 . • ( SP ) 
SP.RO 

CIPNTF 
06. SP 
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6042 
6043 
604* 
6045 
6046 
6047 
6048 
6049 
6050 
6051 
6052 
6053 
6054 
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SEQ 173 



6055 
6056 
6057 
6056 
6059 
6060 
6061 
6062 
6063 
6064 
6065 
6066 
6067 
6068 
6069 
6070 
6071 
6072 
6073 
60 74 
6075 
6076 
6077 
6078 
60 79 
6080 
6081 
6082 



6083 
6084 



111036 

111042 
111044 
111050 
111054 
111056 
111060 
111062 
111062 
111066 
111072 
111076 
111100 
111102 
111106 
111110 



105037 003160 



111112 
111112 
11U16 
111120 
111122 
111124 
111130 
111132 
111140 
13 1146 
111150 
111156 



111160 
111160 
111162 
111164 
111164 
111170 
111172 
111172 
111174 
111174 
111200 
111204 
111210 
1U212 



012701 
012702 
005022 
0O5301 
001375 

012746 
012746 
012746 
010600 
104417 
062706 

000207 



121427 
001002 
005204 
000773 
121427 
001007 
012763 
012737 
000403 
012763 
000207 



005002 

0)3700 
104434 

103413 

013746 
012746 
012746 
010600 
104417 



000132 
002656 



053706 
054514 

000002 



000006 



tACTION 

i 


ROUTINE 


TO CLEAR SUMMARY 


ACTCSU: 


CLR8 


PINNUF 




P$PUSH 


R2 




MOV 


0STBLEN.R1 




MOV 


♦STATBL.R2 


5$: 


CLR 


(R2)v 




DEC 


HI 




BNE 


5$ 




PRINTF 


OTABCLR.OSUMM 



TABLE 



PtPOP 
RTS 



R2 

PC 



j CLEAR 'NOT ENOUGH- COUNTER 

I SAVE R2 

iMOVE TABLE LENGTH TO Rl 

» MOVE SUMMARY TABLE AODRESS TO R2 

i CLEAR EIRST WORD 

,SEE IF FINISHED 

i IF NO, DO MORE 

I ELSE, PRINT 'TABLE CLEARED 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

, AND RESTORE R2 



MESSAGE 

*SUMM, -C5P) 

OTABCLR.-CSP) 

♦2.-CSP) 

SP.RO 

CIPNTF 

*6,SP 



000040 



000000 



jACTION ROUTINE TO CHECK FOR PASS DEFAULT VALUE 

I 

ACIDFTj 
II: 



000030 000002 
000001 '>03154 

000004 OOOOftp 



CMPB 

BNE 

INC 

BR 

CMPB 

BNE 

MOV 

MOV 

BR 

MOV 

RTS 



(R4) # 040 
21 

R4 

14 

( R4 ) , #0 

10$ 

030.2CR3) 

♦l.PINUM 

151 

♦4,2(R3) 

PC 



SEE IF SPACES 

IF NO, CONT. 

ELSE. POINT (Q NEXT CHAR 

AND CHECK AGAIN 
SEE IF DEFAULT VALUE 

IF NO. BR 

IF YES, POINT R3 TO SKIP CHECK PASS COUNT 
SET DEFAULT TO I 
RETURN 
POINT R3 TO CHECK FOR PASS COUNT 



002366 



002366 

112120 
000002 



2$: 



10$: 
15$: 

i ACTION ROUTINE TO READ A FILE FROM EXTERNAL MEDIA ONTO THE NODE TABLE 

J 

ACTUSFj 

I SAVE R2 

i INITIALIZE R2 TO NOOE TYPE TARGET' 

lOPEN FILE, NAME-ASCIZ STRING 

MCV CBOADR,RO 

TRAP C$OPEN 

iRETURN IF SUCCESSFUL 

BCS 1$ 

l ELSE PRINT "OPEN ERROR" 

MOv CBOAOR.-(SP) 
MOV ♦OPNERR.-tSP) 
MOV *2, C5P) 
MOV SP.RO 
TRAP CJPNTF 



P$PUSH 


R2 


CLR 


R2 


OPEN 


CBOADR 



BCOMPLETE II 
PRINTF 0QPNERR, CBOADR 
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111214 


062706 


000006 


6085 


111220 








111220 


104435 




6086 


111222 






608? 


111230 


005*37 


112114 


6088 


111234 


001064 




6089 


111236 


005737 


112116 


6090 


111242 


001411 




6091 


111244 








111244 


012746 


112233 




111250 


012746 


000001 




111254 


010600 






111256 


104417 






111260 


062706 


000004 


6092 


111264 


000450 




6093 


111266 








111266 


012746 


111570 




111272 


012746 


112202 




111276 


012746 


000002 




111302 


010600 






111304 


104417 






111306 


062706 


000006 


6094 


111312 






6095 


111334 






6096 


111336 


001411 




6097 


111340 








111340 


012746 


053306 




111344 


012746 


000001 




111350 


010600 






111352 


10^417 






111354 


062706 


000004 


6098 


111360 


000412 




6099 


111362 


110237 


002400 


6100 


111366 


105102 




6101 


111370 


142702 


000376 


6102 


111374 






6103 


111402 






6104 


11)404 


0OO706 




6105 


111406 






6106 


111410 


105037 


003160 


6107 


111414 








111414 


012746 


054627 




111420 


012746 


054561 




111424 


012746 


000002 




111430 


010600 






111432 


104417 






111434 


062706 


000006 


6108 


111440 






6109 








6110 








6111 








6112 








6113 








6114 








6115 








6116 








6117 









1$; 



10$} 



12$j 



25$: 







ADD 


06. SP 




CLOSE 




1 CLOSE FILE 

TRAP 


CICLOS 




CALL 


ROLIN 


iREAD A LINE AT A TIME 






TST 


BAD 


tSEE IF AN ERROR DURING READ 






BNE 


25$ 


i BR ON ERROR TO LEAVE 






TST 


EOFF 


iSEfc IF EOF BEFORE PROCESS 






BEQ 


10$ 


iIF VALID, PROCESS 






PRINTF 


OEOFFNO 


1 ELSE SAY 'END OF FILE' ANO LEAVE 








MOV 


OEOFFND, 


-(SP) 






MOV 


01, (SP) 








MOV 


SP.RO 








TRAP 


C$PNTF 








ADD 


04, SP 




BR 


25$ 








PRINTF 


OPLINE, OFILLIN 


I PRINT LINE READ FROM FiLE 










MOV 


OFILLIN. 


-(SP) 






MOV 


OPL INE , - < 


r 5P) 






MOV 


02, -CSP) 








MOV 


SP.RO 








TRAP 


C$PNTF 








ADD 


06. SP 




CALL 


EDPACK OFILLIN, OADRBUF 


06 jPUT ADDRESS INTO BINARY 




P$POP 


Rl 


i CHECK RESULTS 






BEQ 


12$ 


I IF OK, BR 






PRINTF 


OCADERR 


l ELSE PRINT ERROR MESSAGE 










MOV 


OCADERR. 


■CSP) 






MOV 


♦1, -(SP) 








MOV 


SP.RO 








TRAP 


C$PNTF 








ADD 


04, SP 




BR 


25$ 


i AND EXIT 






MOVB 


R2, NOOTY 


j SET UP NOOE TYPE 






COW 


R2 


iSUITCH TYPE FOR NEXT TIME 






BICB 


♦376, R2 








CALL 


ENTRNO 


j ENTER IN NOOE TABLE 






PIPOP 


Rl 


»GET RESULTS 






BR 


1$ 


iREAD MORE ADDRESS 






PIPOP 


R2 


RESTORE R2 






CLRB 


PlNNUF 


i CLEAR 'NOT ENOUGH' FLAG 






PRINTF 


OUNSMSG.ORESTOR 


jPF.INT 'TALBE RESTORED' MESSAGE 










MOV 


ORESTOR, 


(SP) 






MOV 


OUNSMSG, 


-(SP) 






MOV 


02, -(SP) 








MOV 


SP.RO 








TRAP 


C$PNTF 








ADD 


06. SP 





RETURN 



.SBTTL READ LINE OF OPENED FILE 

THIS ROUTINE GETS BtfES FROM AN OPENED FRE UNTIL A CR IS ENCOUNTERED 
"EOF* AND "BAD* FLAl.S ARE SET IF KND-OFFILE OR ERRORS ARE ENCOUNTERED 

NOTE: ASSUMING A ASCII TEXT FILE IS BEING READ, FOR EXAMPLE; 
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SEQ 175 



6118 








6119 








6120 








6121 








6122 








6123 








6124 








6125 








6126 








6127 








6128 








6129 








6130 








6131 








6132 








6133 








6134 








6135 








6136 








6137 








6138 


111442 


012702 


111570 


6139 


111446 


005037 


112114 


6140 


111452 


005037 


112116 


6141 


111456 








111456 


104426 






111460 


110012 




6142 


111462 








111462 


103414 




6143 


111464 








111464 


012746 


112154 




111470 


012746 


00000.1 




111474 


010600 






1114 76 


104417 






111500 


062706 


000004 


6114 


111504 


012737 


177777 


6145 


111512 


000416 




6146 








6147 


111514 


122712 


000015 


6148 


111520 


001756 




6149 


111522 


12271? 


000012 


6150 


111526 


001410 




6151 


111530 


122712 


000040 


6152 








6153 


113534 


101002 




6154 


111536 


005202 




6155 


111540 


0O0746 




6156 








6157 


111542 


012737 


177777 


6158 








6159 


111550 


105012 




6160 


111552 






6161 








6162 


111554 






6163 


111570 






6164 


111774 






6165 


112114 


oooooo 




6166 


112116 


000000 





AA -00 -03-00-01 -AB<CR><LF> 

AA-00-03~00-01-AB<CR^LF> 

WHAT YOU SEE READ BYTE-BY-BYTE IS: 

"A. . -AB<CR><LF>A, , -AB<CR><LF> , , <0><0><0> ??? 

SO I MADE ASSUMPTION THAT SINCE SEE "O-PADDING" AFTER LAST CHAR TO 
ENO-OF -FILEBLOCK, ANY CHARACTER THAT IS NOT "SPACE OR GREATER" OR A 
<CR> OR <LF> THEN I'LL TAKE THAT AS ENO-OF-FILE( TEXT) , SET EOF-FLAG 
AND LEAVE. 



INPUTS; 



OUTPUTS: 



FILLIN BUFFER TO HOLD LINE OF BYTES READ FROM OPENED FILE 
(CR NOT INCLUOED, O-BYTE TERMINATED) 

BAD IF NON-ZERO, ERROR IN READING A BYTE FROM FILE 
EOFF IF NON-ZERO, END OF FILE WAS ENCOUNTERED 
FILLIN ASCIZ STRING THAT WAS READ AS CHAR-CR-LF STRING 
(CR-LF REMOVED) 



RDLIN: 
1*: 

4$: 



MOV 
Cl.R 
CLR 
GETBYT 



0FILLIN.R2 

BAD 

EOFF 

CR2) 



BCOMPLETE 2$ 
PRINTF ORDERR 



112114 


MOV 
BR 


0-1, 
51 


BAD 


2*: 


CMPB 

BEQ 

CMPB 

BEQ 

CMPB 


015, 
1* 
012 
5$ 

040, 


(R2) 
CR2) 
(R2) 




BHI 
INC 
BR 


61 
R2 
11 




112116 61: 


MOV 


0-1. 


EOFF 


5$: 


CLRB 
RETURN 


CR2' 


) 


FILENM: 
F 1X1. IN: 
MATCH j 
BAD: 

ECFF; 


.BLKB 
.BLKB 
.BLKB 

.WORD 
.WORO 


12. 

132. 

80. 









jPOINT R2 TO A LINE BUFFER 
l CLEAR FLAGS 

|G0 GET A BYTE FROM INPUT FILE 

TRAP 
MOVB 

jBR IF READ-BYTE 5UCESSFUL 

BCS 

j ELSE PRINT "READ-ERROR" 

MOV 

MOV 

MOV 

TRAP 

ADO 

I SET BAD-TRY FLAG AND LEAVE 



CIGETB 
R0.CR2) 

2$ 

ORDERR, -CSP) 

01,-CSP) 

SP.RO 

CiPNTF 

04, SP 



IS THE CHARACTER A <CR> 

BR IF YES (GO BACK TO GET <LF>) 
IS THE CHARACTER A <LF> 

BR IF YES (TERMINATE AND LEAVE) 
IS IT A "EOF" (END-OF-FILE(TEXT)) 

CEOF-AN> NON-CHAR>37 EXCEPT CR.LF) 

BR IF YES 

IF NO, LEAVE CHAR IN BUFFER 

ANO GO GET MORE CHARS 

IF YES, TERMINATE INPUT BUFF 
AND SET EOF-FLAG 



jBUFFER FOR FILE NAME 

jBUFFER FOR SINGLE LINE READ FROM FILE 
jBUFFER FOR WORD TO MATCH FROM FILE 
, ERROR/NOT -FOUND F W AG WORD 
iENO-OF-FILE FLAG ( <>0 ■ EOF) 
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SEQ 176 



6167 
6168 



b!69 



6170 



6171 



6172 
6173 
6174 
6175 
6176 
6177 
6178 
6179 
6180 
6181 
6182 
6185 
61B4 
6180 
'ld6 
6187 
6188 
6189 



112120 
112125 
112126 
112131 
112134 
112137 
112142 
112145 
112150 
112153 
112154 
112157 
112162 
112165 
112170 
112173 
112176 
112201 
112202 
112205 
112210 
112213 
112216 
112221 
112224 
112227 
112232 
112233 
112236 
112241 
112244 
112247 
112252 
112255 
112260 
112263 
112266 
112271 



045 
101 
116 
114 
124 
117 
116 
045 
101 
000 
045 
101 
111 
040 
101 
105 
117 

ooo 

045 
101 
114 
114 
105 
101 
045 
124 
000 
045 
101 
104 
106 
111 
040 
125 
054 
111 
040 
101 



116 
077 
101 
105 
117 
120 
040 
124 
042 

116 
077 
114 
122 
104 
122 
122 

116 
106 
105 
111 
040 
123 
116 
045 

ue 

105 
055 
055 
114 
106 
116 
040 
114 
122 
104 



045 
125 
102 
040 
040 
105 
042 
045 
' 77 

045 
106 
105 
105 
040 
122 
077 

045 

111 
040 
116 
127 
072 
045 
116 

045 

116 
117 
106 
105 
117 
104 
106 
105 
105 
000 



OPtCRRj ,ASCI2 /*N*A?UNABLE TO OPEN "*T*H"?/ 



RDERR; .ASCIZ /*N*A?FILE READ ERROR?/ 



PUNE{ .ASCIZ /tfNKAFILE LINE WAS:*N*T*N/ 



EOKFNDi .ASCIZ /UNrfAENO-OF-FILE FOUND, FILE READ/ 



SELMSG 



OPERATOR SELECTED MESSAGE STORAGE 



THIS ROUTINE WILL TAKE THE OPERATOR SELECTED MESSAGE FROM THE COMMAND 
LINE INPUT STRING BUFFER AND PUT IT INTO A BUFFER AT LOCATION OPSLBF . 



INPUTS - 

EXPLICIT OUTPUTS - 
IMPLICIT OUTPUTS - 



SUBORDINATE ROUTINES 
CALLING PROCEEDURE - 
REGISTER USAGE - 



PI - ADDRESS OF OPERATOR SELECTED MESSAGE IN 

INPUT STRING 
NONE 

THE BUFFER AT OPSLBF UILL CONTAIN THE ASCII 
OPERATOR SELECTED INPUT STRING FOLLOWED BY 
A NULL CHARACTER 
NONE 

CALL SELMSG PI i INPUT ADDRESS OF ASCII STRING 
Rl CONTAINS ADDRESS OF INPUT STRING 
R2 CONTAINS ADDRESS OF OUTPUT STRING 
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SEQ 177 



6190 
6191 
6192 
6193 
6194 
6195 
6196 
6197 
6198 
6199 
6200 
6201 
6202 
6203 
6204 
6205 
6206 
6207 
6208 
6209 
6210 
6211 
62 J 2 
6213 
6214 
6215 
6216 
6217 
6218 
6219 
6220 
6221 
6222 
6223 
6224 
6225 
6226 
6227 
6228 
6229 
6230 
6231 
6232 
6233 
6234 
6235 
6236 
6237 
6238 
6239 
6240 
6241 
6242 
6243 
6244 
6245 
6246 



112274 
112276 
112302 
112304 
U2306 
112310 
112312 
11*314 
112320 
112324 
112330 



1 J 2332 
112340 
112342 
112344 
112350 
112352 
112356 
112362 
112366 
112370 
112372 
112374 
112376 
112402 
112406 



012702 

005003 
105711 
001404 
112122 
005203 
000137 
112712 
010337 



001403 

C00416 
012703 
013701 
012702 
112221 
005303 
001375 
005201 
113711 



I --* 



003570 



SELMSG: 



5*} 



11230*. 
OOOOCO 

003314 



10$: 



- - ♦ 



»PUT ADDRESS OF OPR. SEL ASCII STRING INTO Rl 

jPUT ADDRESS OF OUTPUT BUFFER INTO R2 

\ CLEAR CHARACTER COUNTER 

, CHECK FOR END OF STRING 

iGO TO 10* IF ENO 

»ELSE, MOVE BYTE TO OUTPUT BUFFER 

j COUNT NUMBER OF CHARACTERS IN INPUT BUFFER 

j GO DO MORE CHARACTERS 

j PUT ZERO AT ENO OF OUTPUT BUFFER 

j STORE NUHBER OF CHARACTERS FOR USE IN BUF. BUILDING 



ENlHND ENTER NODE IN TABLE 

THIS ROUTINE ENTERS A NODE INTO THE NODE TABLE 



PIPOP 


Rl 


MOV 


*0PSLBF,R2 


CLR 


R3 


TSTB 


(Rl) 


BEQ 


101 


MOVB 


CRl)» a CR2)» 


INC 


R3 


JMP 


5$ 


MOVB 


#0.<R2) 


MOV 


R3,MSG6C 


RETURN 





INPUTS 

EXPLICIT OUTPUTS 
IMPLICIT OUTPUTS 



SUBORDINATE ROUTINES 
CALLING PROCEEDURE 



I -- ♦ 



000006 
002402 
002314 



002400 



trNINJMl 


PIPOP 


Rl i 




BEQ 


5$ j 




PI PUSH 


#-1 , 




BR 


20$ i 


5i: 


MOV 


♦6.R3 , 




MOV 


SLOr.Rl , 




MOV 


♦ADRBUF.R2 i 


10$: 


MOVB 


(R2)*.(Rn* i 




DEC 


R3 | 




BNt 


10$ , 




INC 


Rl i 




MOVB 


N0DTY»(R1J i 




PIPUSH 


40 j 


20$: 


RETURN 





- - * 



FINOSL 

INPUTS 

EXPLICIT 

IMPLICIT 



OUTPUTS 
OUTPUTS 



SUBORDINATE ROUTINES 



NONE 

PI - ZERO IF SUCCESSFUL, -1 IF TABLE FULL 

THE ADDRESS CONTAINED IN AORBUF WILL BE 

ADDED TO THE NODE TABLE IN THE FIRST 

AVAILABLE SLOT WITH TH£ NODE TYPE CONTAINED 

IN NOOTY (TARGET OR ASSIST) 

FINOSL - FIND EMPTY SLOT IN TABLE 

CALL ENTRND 

PIPOP PI ^OUTPUT GOOD/BAD RESULT 



I FIND AVAILABLE SLOT IN TABLE 

i CHECK IF TABLE FULL 

j IF NOT FULL BR TO 5$ 

jELSE PUT FULL INDICATION ON STACK 

I RE TURN 

i SET INCR. COUNTER TO 6 (BYTES) 

jMOV ADDRESS OF AVAILABLE SLOT TO Rl 

I MOV ADDRESS OF NODE ADDRESS TO R2 

iMOV BYTE OF ADDRESS 

iDECR. COUNTER 

iCONTINUE UNTIL 6 BYTES TRANSFERED 

l SET POINTER TO NODE TYPE LOCATION 

i MOVE NOOE TYPE INTO TABLE 

j PUT ADDRESS ADDED INDICATION ON STACK 

iRETURN 



FIND EMPTY SLOT IN NODE TABLE 

NONE 

NONE 

THE ADDRESS OF THE FIRST AVAILABLE SLOT IN THE 

NODE TABLE WILL BE LOCATED IN SLOT. THE 

PARAMETER STACK WILL CONTAIN -1 IF THE NODE 

TABLE IS FULL AND IF AN EMPTY SLOT WAS FOUND 

NONE 
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6247 
6248 
6249 
6250 
6251 
6252 
6253 
6254 
6255 
6256 
6257 
6258 
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6259 
6260 
6261 
6262 
6263 
6264 
6265 
6266 
6267 
6268 
6269 
6270 
6271 
6272 
6273 
6274 
6275 
6276 
6277 
6278 
6279 
6280 
6281 
6282 
6283 
6284 
6285 
6286 
6287 
6288 
6289 
6290 
6291 
6292 
6293 
6294 
6295 
6296 
6297 



112410 
112414 
112420 
112422 
112426 
112432 
112434 
112434 
112440 
112444 
112450 
112452 
112454 
112460 
112464 
112466 
112472 
112476 



112500 
112504 
112510 
112512 
112516 
112520 
112524 
112526 
112534 
112536 
112542 
112544 



012702 
022712 
001422 
062702 
022712 
001370 

012746 
012746 
012746 
010600 
104417 
OS a 706 

000404 
010237 



013701 
022711 
001412 
022711 
001403 
010137 
000407 
012737 
000403 
062701 
000760 



002404 
000000 

000010 
177777 



053701 
053560 
000002 



000006 



002402 



l 
I 
I 


CALLir 


4G PROCEDURE 


FINDSL: 


MOV 


0NODT8L,R2 


10$: 


CMP 


0O,CR2) 




BEQ 


20 $ 




ADD 


0U.R2 




CMP 


0-1.CR2) 




BNE 


10$ 



CALL FINDSL 
P$POP PI 



SEQ 178 



}-l IF FULL/ IF SLOT AVAILABLE 



PRINTF tfTA&FUL . tfNOD 



20$: 
30$: 

- - ¥ 



- - f 



O 2402 
C X>000 

.77777 

002402 

177777 

000010 



10? 



002402 15$ 
20$ 
30$ 
i --♦ 

l 



P$PUSH 
BR 
MOV 

PI PUSH 
RETURN 



FULSLT 



0-1 
30$ 

R2.SL0T 
00 



I MOVE ADDRESS OF NODE TABLE TO R2 

»SEE IF SLOT EMPTY 

j IF YES, BR 20$ 

I ELSE NOVE POINTER TO NEXT ENTRY l.OC. 

tSEE IF AT END CF TABLE 

j IF NOT, CONTINUE LOOKING 

j ELSE, PRINT TABLE FULL MESSAGE 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 
j PUT TABLE FULL INDICATION ON STACK 
jRETURN 

I MOVE ADDRESS OF EMPTY LOC . INTO SLOT 
j PUT LOC, FOUND INDICATION ON STACK 
l RETURN 



FULL SLOT ROUTINE 



0NOD,-CSP) 

OTABFUL.-CSP) 

02, ~(SP) 

SP.RO 

C$PNTF 

06, SP 



THIS ROUTINE FINDS A LOCATION IN THE TABLE WHERE A NOOE PHYSICAL 
ADDRESS EXISTS. IT IS USED WHEN PRINTING OUT THE NODE TABLE, 



INPUTS 

EXPLICIT OUTPUTS 

IMPLICIT OUTPUTS 



SUBORDINATE ROUTINES 
CALLING PROCEDURE 



FUVSLT: MOV 



CMP 

BEQ 

CMP 

BEQ 

MOV 

BR 

MOV 

BR 

AOD 

BR 

RETURN 



CMPADR 



SL0T,R1 

00. (Rl) 

20$ 

0-1, (Rl) 

15$ 

Rl.SLOT 

30$ 

0-1, SLOT 

30$ 

♦/8..R1 

10$ 



NONE 

NONE 

THE LOCATION SLOT WILL CONTAIN THE PHYSICAL 

ADDRESS OF A NODE TABLE ENTRY. SLOT WILL 

CONTAIN -1 WHEN POINTING TO THE ENO OF THE 

NODE TABLE 

NONE 

CALL FULSLT 



iMOVE SLOT LOCATION TO Pi 

j CHECK IF EMPTY 

»IF YES, BR 20$ 

i SEE IF ENO OF NODE TABLE 

iXF YES, BR 15$ 

jELSE PUT EMPTY LOC. ADDRESS INTO SLOT 

tRETURN 

j PUT -1 INTO SLOT TO SHOW END OF TABlE 

jRETURN 

iINCR. POINTER TG NEXT LOCATION 

j CHECK NEXT LOC, 

iRETURN 



COMPAIR TWO ADDRESSES 
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SEQ 179 



6298 








6299 








6300 








6301 








6302 








6303 








6304 








6305 








6306 








6307 








6308 








6309 


112546 






6310 


112552 


022223 




6311 


112551 


001006 




6312 


112556 


022223 




6313 


112560 


001004 




6314 


112562 


021213 




6315 


112564 


001002 




6316 


112566 


005001 




6317 


112570 


000402 




6310 


112572 


012701 


177777 


6319 


112576 






6320 








6321 








6322 








6323 








6324 








6325 








6326 








6327 








6328 








6329 








6330 


112602 








112602 


012746 


O02322 




112606 


012746 


053430 




112612 


012746 


000002 




112616 


010600 






112620 


104417 






112622 


062706 


000006 


6331 


112626 


013702 


002402 


6332 


112632 


162702 


002404 


6333 


112636 


0O6202 




6334 


112640 


006202 




6335 


112642 


006202 




6336 


112644 








112644 


010246 






112646 


012746 


053440 




112652 


012746 


000002 




112656 


010600 






112660 


104417 






112662 


062706 


000006 


6337 


112666 


013702 


O02402 


6338 


112672 


062702 


000007 


6339 


112676 


111203 




6340 


112700 


020327 


OOOOOl 


6341 


112704 


0014C4 




6342 


112706 


012737 


062613 002312 



THIS ROUTINE COMPAIRS TWO SIX BYTE STRINGS 



INPUTS 

OUTPUTS 

CALLING PROCEDURE 



- - ♦ 



CMPADR; P$POP R2,R3 





CMP 


CR2)*,(R3)f 




BNE 


10$ 




CMP 


(R2)*,(R3)f 




BNE 


10$ 




CMP 


(R2),CR3) 




BNE 


10$ 




Cl.R 


Rl 




BR 


15$ 


10$: 


MOV 


•-1.R1 


15$: 


RETURN 


Rl 



- - ♦ 



PRTNOD 

INPUTS 

EXPLICIT OUTPUTS 
IMPLICIT OUTPUTS 
SUBORDINATE ROUTINES 
CALLING SEQUENCE 

PRTNOD: PRINTF ONODADR.rtSTRBUF 



PI - ADDRESS OF FIRST STRING 

P2 - ADDRESS OF SECOND STRING 

P3 - « C0MPARIS0N/-1 « NO COMPARISON 

CALL CMPADR P1.P2 
P$POP P3 



j PUT ADDRESS OF STRING TO BE COMPARED IN R2 AND R3 

j DO FIRST TWO BYTES COMPARE 

I IF NO. EXIT 

iDO SECOND TWO BYTES COMPARE 

I If NO, EXIT 

{DO LAST TWO BYTES L» W .PARE 

I IF NO. EXIT 

{PUT COMPARISON OK INDICATOR IN Rl 

j PUT NO COMPARISON INDICATOR IN Rl 



PRINT NODE TABLE 

NONE 

NONE 

ONE ENTRY IN THE NODE TABLE WILL BE PRINTED 

NONE 

CALL PRTNOD 

j PRINT NODE ADDRESS 



MOV 


SL0T.R2 


sue 


*N0DTBL,R2 


ASR 


«2 


ASR 


R2 


.«.3R 


R2 


PRINTF 


0L0GNAM,R2 



;MOVE SLOT ADDRESS INTO 
{CALCULATE NODE LOGICAL 
tUSING: LOG. NO. * 
j(SLOT-0NUDTABV8 

{PRINT LOGICAL NAME 



MOV 


*STRB"JF, CSP) 


MOV 


WODADR. -CSP) 


MOV 


*2. -CSP) 


MOV 


SP.RO 


TRAP 


C$PNTF 


ADD 


*6.3P 


R2 




NAME 





MOV 


SL0T.R2 


ADD 


#7,R2 


MOVB 


CR2),R3 


CMP 


R3.0CASIST 


BFQ 


10$ 


MOV 


0ARGTY7.KEYWD;: 



MOV 


R2. CSP) 


MOV 


OLOGNAM. -CSP) 


MOV 


02 , - ( SP ) 


MOV 


SP.RO 


TRAP 


CJPNTF 


ADO 


06, SP 



{SEE IF TARGET OR ASSIST NODE 

{ INFO CONTAINED IN 7TH BYTE OF ENTRY 

{MOVE INTO R3 

{SEE IF ASSIST NODE 

l IF YES. BR 10$ 

1 ELSE MOVE 'TARGET' INTO Kfcvw02 
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L14 



6343 
6344 
6345 



6346 
634 7 



6343 
6350 
6351 
6352 
6353 
6354 
6355 
6556 
6357 
6356 
6360 
6361 
6362 
6363 



6364 

6366 
6367 
6368 



OF OPl 

1x2714 
112716 
112724 
112724 
112730 
112734 
112740 
112742 
112744 
112750 
U2752 
112752 
112754 
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SEQ 180 



112756 
112756 
112756 



000403 

012737 062603 002312 

013746 002312 

012746 053453 

012746 000002 

010600 

104417 

062706 000006 



104432 
000002 



104401 



10$: 
20$ t 



BR 

MOV 

PRINTF 



20$ 

*ARGTY6,KEYWD2 

0NQDTYP.KEYWD2 



i CONTINUE 

j MOVE 'ASSIST' INTO KEYW02 

j PRINT NODE TYPE 



RETURN 
EXIT TST 



jRETURN 



MOV 


KEYW02.-CSP) 


MOV 


ONODTYP,-(SP) 


MOV 


*2.-CSP) 


MOV 


SP.RO 


TRAP 


C*PNTF 


ADD 


46, SP 


TRAP 


CiEXIT 


.WORD 


L10015-. 



i INSERT LOCAL STORAGE THAT IS USED ONLY 

j DURING THIS VEST. 

j INSERT MESSAGES THAT ARE USED ONLY 

j DURING THIS TEST. 



.EVEN 
ENDTST 



L10015: 



TRAP 



C$ETST 



j BEGIN THE REMAINING TESTS ON NEW PAGES. 



M14 
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SEQ 181 



6371 
6372 
6373 

6374 
6375 
6376 
6377 
6378 
6379 
6380 
6381 
6382 
6383 



112760 
112760 
112762 



6384 
6386 
6387 
6588 
6389 
6390 
6391 
6392 
6394 

6395 112762 
112762 
112764 
112766 
112770 

6396 112772 
112772 
112774 
112776 
113000 

6397 113002 
113002 
113004 
113006 
113010 
113012 



oi98 
6399 



6400 
6402 
6403 
6404 
6405 
6407 
6408 



113014 
113014 



113014 
113017 
113022 
113025 
113030 
113033 
113036 



000015 



000031 
113C14 
160000 
177776 

001031 
113047 
000000 
000776 

002032 
113103 
000340 
000000 
000007 



.SBTTL HARDWARE PARAMETER CODING SECTION 



I ♦♦ 



THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



BGNHRD 



L*HARD:: 



.WORD L1O016-L5HARD/2 



; INSERT HARDWARE PARAMETER INTERPRETIVE CODE HERE. THIS CODE 

{ IS USED BY THE SUPERVISOR TO INTERROGATE THE OPERATOR FOR 

; DEVICE INFORMATION TO PUT IN THE P- TABLE. THIS CODE IS USED 

j IN CONJUNCTION WITH THE DEFAULT P-TABLE TEMPLATE. THE MACROS 

i USED IN THIS SECTION ARE "GPRhO", "GPRMA" AND "GPRML". 

GPRMA ASKCSR. 0,0, 160000,177776, YES 



GPRMA ASKVEC , 2 , , , 776 , YES 



GPRMD ASKPRI , 4 , , 340 , , 7 , YES 



s GET 


CSR ADDRESS 




.WORD 


TSCODE 




.WORD 


ASKCSR 




.WORD 


T*LOLIM 




.WORD 


TiHILIM 


; GET 


VECTOR ADDRESS 




.WORD 


TiCODE 




.WORO 


ASKVEC 




.WORD 


TJLOL.IM 




.WORD 


TiHILlM 


} GET 


PRIORITY 


LEVEL 




.WORD 


T$CODE 




.WORD 


ASKPRI 




.WORD 


340 




.WORD 


TSLOLIM 




.WORD 


TSHILIM 




.EVEN 




L10016; 





ENDHRC 



l INSERT MESSAGES THAT ARE USED ONLY 

j DURING THE HARDWARE PARAMETER CODING SECTION. 



127 
124 
123 
110 
120 
122 
101 



110 
040 
040 
105 

103 
117 
104 



101 
111 
124 
040 
123 
040 
104 



ASKCSR t .ASCIZ /WHAT IS THE PCSRO ADDRESS?/ 
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HARDWARE PARAMETER CODING SECTION 
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SEQ 182 





113041 


122 


105 


123 




113044 


123 


077 


000 


6409 


113047 


127 


110 


101 




113052 


124 


040 


111 




113055 


123 


040 


124 




113060 


110 


105 


040 




113063 


126 


105 


103 




113066 


124 


117 


122 




113071 


040 


101 


3 04 




113074 


104 


122 


105 




113077 


123 


123 


077 




113102 


000 






6410 


113103 


127 


110 


101 




113106 


124 


040 


111 




113111 


123 


040 


124 




113114 


110 


105 


040 




113117 


120 


122 


111 




113122 


117 


122 


111 




113125 


124 


131 


040 




113130 


114 


105 


126 




113133 


105 


114 


077 




113136 


000 






6411 










6412 











ASKVEC: t ASC.IZ /WHAT IS THE VECTOR ADDRESS?/ 



ASKPRI; .ASCIZ /WHAT IS THE PRIORITY LEVEL?/ 



.EVEN 
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SEQ 183 



6414 
6415 
6416 
6417 
6418 
6419 
6420 
6421 
6422 
6423 
6424 
6425 



6426 
6428 
6429 
64 50 
6431 
64 32 
6433 
64 35 
M56 
6437 

6438 



113140 
1131*0 
113142 



000000 



113142 



U3142 
6439 
6440 
6442 
644 5 
6444 
6445 
6447 

6448 IU'142 
b449 U3142 
6450 
6452 
6453 
6454 
6455 
6457 

645a 113162 



113162 000000 
US 164 OOOOQO 
413166 



.SBTTL SOFTWARE PARAME r ER CODING SECTION 



THE SOTTWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILO P- TABLES. THE 
MACROS ARE NOT EXECUTEO AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES, THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR, 



BGNSFT 



LISOfT: 



.WORD L10017-LIS0FT/2 



INSERT SOFTWARE PARAMETER INTERPRETIVE COOING MERE. THIS COOE 
IS USED BY THE SLPERYISOR TO INTERROGATE THE OPERATOR FOR 
SOFTWARE INFORMATION WHICH WILL BE PLACED IN THE SOFTWARE 
TABLE. THIS SECTION IS OPTIONAL, 

.EVEN 



ENDSFT 



1.10017: 



.EVEN 



i INSERT MESSAGES THAT ARE USED ONLY 

I DURING THE SOFTWARE PARAMETER COOING SECTION. 

tPATCHi: 

.BLKW 10 

I THIS IS A PATCH AREA THAT SHOULD BE INCLUOEO IN ALL DIAGNOSTICS, 

i ADJUST THE SIZE TO FIT tOUfi OWN PREFERENCES, 



LASTAQ 



LILASTu 



• EVEN 
.WORO 
*WQRO 



C15 
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SEQ 164 



6460 
6461 
6463 
6464 
6465 
6466 
6467 
6468 
6469 
64 70 
o471 
64 7? 
64 74 
64 75 
64 76 
04 7 7 
64 78 
647^ 

6480 
6481 



000001 



HARDC00E0 P- TABLES MAY BE PLACED HERE BY USING THE SETUP MACROS. 
THIS SECTION IS OPTIONAL ANO SHOULD BE REMOVED IF IT IS NOT BEING 
USED, CHANGE THE POINTER MACRO ARGUMENT TO REFLECT THE REMOVAL. 

THE P-TABLES ARE DELIMITED BY THE "BGNSETUP" ANO "ENOSETUP" MACROS, 
THE "BGNSETIP" MACRO HAS ONE ARGUMENT WHICH IS THE NUMBER OF 
P-TABLE ENTRIES. EACH ENTRY IS DELIMITED BY THE "BGNPTAB" ANO 
"ENDPTAB" MACROS. NEITHER OF THESE MACROS REQUIRE AN ARGUMENT, 

BGNSETUP 1 

BGNPTAB 

.WORD 

ENOPTAB 

ENDSETUP 

♦ END 



SfNSH^TRIt^A NI EXER CISER DIAG MACRO M1200 



ACT ALP 

ACTBLD 

ACTCMS 

ACTCNL 

ACTCNT 

ACTCPY 

ACTCSU 

ACTCTT 

ACTDFT 

AC10IR 

ACTEXT 

ACTFCT 

ACTHLP 

ACTIDT 

ACTMSG 

ACT NAD 

ACTNAL 

ACTNOO 

ACTNUF 

ACTNUL 

ACTONE 

ACTOPR 

ACTPAT 

ACTRNA 

ACTRNL 

ACT RUN 

ACTSAV 

ACT SMS 

ACTSND 

ACT5R4 

ACTSUH 

ACTSZE 

ACTTYP 

ACTUNS 

ACTUSF 

ACTXAO 

ACT/RO 

ACTOAL 

ACT1AL 

ADR 

APRBUF 

AD*DFL 

ALLNOO 

ALPHA ■ 

ANCHOT, 

ARC T VI. 

Ar ; GTY2 

ARGTY3 

ARGTY4 

ARGTY5 

ARGTY6 

ARGTY7 

ASKCSR 

ASKPRI 

ASKVEC 

A3SEM8* 

B 



103450 
101166 
107206 
110550 
107312 
103742 
111036 
103520 
111112 
104776 
103350 
110634 
100620 
102264 
103242 
104020 
104156 
100656 
100610 
100616 
103460 
103530 
107032 
104356 
105424 
104236 
110670 
107114 
110374 
103442 
101710 
103664 
103656 
110734 
111160 
103360 
1034 70 
103510 
103500 
000020 
002314 
054340 
062151 
000000 
070042 
062536 
062544 
062555 
062566 
062577 
062603 
062613 
113014 
113103 
113047 
000010 
000007 



BAD 

BCOUNT 

BINDEC 

BINHEX 

BITO 

BITOO 

BIT01 

BIT 02 

BIT03 

BIT04 

BIT05 

BIT06 

BIT07 

BIT06 

BIT09 

BIT1 

BTT10 

BIT11 

BIT12 

BIT13 

BIT14 

BIT15 

BIT2 

BIT3 

BIT4 

PIT5 

BIT6 

BIT7 

BITS 

BIT9 

BLOAST 

BLDBUF 

BLDFAS 

BLOLO 

BLDflSG 

BLORCQ 

B06 

BOOT 

BUTL 

BUFLEN 

BUILD 

CAOERR 

CAORER 

CALPHA 

CASIST 

CBOADR 

CCCITT 

CCITT 

CCLMSG 

CCLNAO 

CCLNAL 

CCLSUM 

CCNTR 

CCPYS 

CDEFLT 

COIR 

CEXADR 



112114 

050526 

075014 

072672 

000001 

000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

073606 

074324 

073242 

072760 

052757 

074124 

000400 

000005 G 

100000 G 

050566 G 

000003 

053306 

053232 

000016 

000001 G 

002366 

000023 

000005 G 

0O0035 

000004 G 

000010 G 

000042 

000036 

000027 

000044 

00004 3 

000013 







D15 
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CEXIT » 
CFLAG 


000020 G 


CNTR06 
CNTR07 


003672 


CFUNCT- 


000040 


CNTR06 


CLIACT 


100456 


CNTR09 


CHAIN- 


000007 


CNTR10 


CLIALP- 


000006 


CNTRli 


CLIBIF- 


000003 


CNTR12 


CLIBR • 


000002 


CNTR13 


CLIBRX 


052554 


CNTR14 


CLIDEC- 


000011 


CNTR15 


CLIERM 


052445 


CNTR16 


CLlf.RR- 


000000 


CNTR17 


CLIEXI- 


000001 


CNTR18 


CLTNBG 


052527 


CNTR19 


CLINUF 


0524 76 


COMANO 


CLINUM- 


000005 


COMPAR 


CLIOCT- 


000010 


CONES - 


CLISPA- 


000004 


COPNSL- 


CLISTR- 


000012 


COUNT 


CLITRE 


051070 


CPATRN- 


CLIIPM 


052436 


CPYCNT 


CLKBR 


003676 


CPYLMT 


CLKCSR 


003674 


CRC 


CLKEN 


003704 


CRNALL ■ 


CLKHZ 


003702 


CRUN - 


CLKINT 


067702 G 


CSAVE • 


CLKSET 


067656 


CSAVR4- 


CLKVEC 


003700 


CSHCTR- 


CLRCNT- 


000013 G 


CSMMSG- 


CLRMSG 


053716 


CSIZE - 


CLRSTA- 


000017 G 


CTARGT- 


CLUPPR- 


000033 


CTYPE - 


CMOBUF 


002200 


CUNSAV- 


CM0TY1 


062444 


CUNSVF- 


CM0TY2 


062451 


C2ER0S- 


CNDTY3 


062461 


CIAU • 


CMDTY4 


062467 


CIAUTO- 


CM0TY5 


0624 7< 


CIBRK • 


CM0TY6 


062500 


CIBSEG* 


CH0TY7 


062510 


c»Bsue« 


C*)TY6 


062515 


CICEFG- 


CM0TY9 


062523 


CICLCK- 


CMPAOR 


112546 


CICLEA- 


CMPBUF 


050570 G 


ClCLOS- 


CMPER1 


066754 


CICLP1- 


CMPER2 


067051 


CICVEC 


CMPSTR 


072530 


CIDCLN- 


CNOAOR- 


000030 


CIOOOU- 


CNOLOG- 


000037 


CIORPT- 


CNOOAL - 


000031 


C«0U • 


CNOOE - 


000015 


CIEDIT- 


CNTROO 


062703 


CIEROF- 


CNTR01 


062763 


CIERHR- 


CNTR02 


063032 


CIERRO* 


CNTR03 


063066 


CIERSF* 


CNTR04 


063133 


CIER50- 


CNTR05 


063210 


OESCA- 



063260 
063317 
063367 
063442 
063513 
063552 
063622 
063670 
063735 
063771 
064033 
064101 
064154 
064221 
071350 
062351 
000017 
000024 
050542 
000005 
050562 
053775 
004000 
000032 
000004 
000006 
000014 
000002 
000034 
000026 
000000 
000025 
000041 
000045 
000020 
000052 
000061 
000022 
000004 
000002 
000045 
000062 
000012 
000035 
000006 
000036 
000044 
000051 
000024 
000053 
000003 
00O055 
000056 
000060 
000054 
00005/ 
000010 









SF-Q 185 


CIF.SEG 


■ 000005 






CIESUB 


• 000003 






CIETST- 


• 000001 






CIEXIT- 


■ 000032 






CIGETB 


• 000026 






C»GETW. 


■ 000027 






CIGMAN 


• 000043 






C»GPHR 


• 000042 






CIGPLO 


- 000030 






CIGPRI- 


• 000040 






CflNIT- 


• 000011 






C*INLP- 


• 000020 






CIMANI 


• 000050 






CIMEM - 


• 000031 






CIMSC ■ 


• 000023 






CIOPEN- 


• 000034 






CtPNTB- 


• 000014 






C$PNTF« 


• OOOOl? 






CIPNTS- 


• 000016 






ClPNTX- 


• 000015 






CIQIO ■ 


• 000377 






C$RD8U« 


• 000007 






CtREFG' 


• 000047 






CIRESE- 


■ 000033 






C»REVI- 


■ 000003 






CIRFLA- 


■ 000021 






CIRPT - 


■ 000025 






CISEFG- 


■ 000046 






CISPRI- 


■ 000041 






CI?V€C- 


• 000037 






C$TPRI« 


■ 000013 






C.COLL* 


■ 000074 


G 




C.MREC- 


• 000010 


G 




C.HXMT" 


■ 000040 


G 




C,PREC« 


■ 000004 


G 




C.PXMO' 


■ 000054 


G 




C.PXMT- 


• 000034 


G 




C.PXK2- 


■ 000050 


G 




C.PXM3- 


• 000O44 


G 




CROAT- 


■ 000020 


G 




C.RERB' 


• 000014 


G 




C.RERR- 


» 000016 


G 




C.RLEX« 


• 000032 


G 




C.RLIN- 


■ 000030 


G 




C.RM06- 


• 000024 


G 




C,SECS« 


• 000002 


G 




C,XABB« 


• 000066 


G 




C.XA8T' 


• 000070 


G 




C.XOAT« 


• 000060 


G 




C.XMOB- 


• 000064 


G 




COALT « 


• 000022 






C1ALT ■ 


• 0000C1 






DATC^ 


074406 


G 




DECSTR 


075200 


G 




OEF 


002000 


G 




DEPAOR 


04775*? 


G 




DESTIN' 


000000 


G 





» ao T8§Lr ni 
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SEQ 166 



DFPTBL 

OIAGMO 

DIRCOM 

DIRECT 

DMPMEH- 

DNI 

DNIFLG 

F.OPACK 

EF.CON- 

EF.NEM- 

EF.PWR- 

EF.RES- 

~F,STA- 

EMSGO 

EMSGOl 

EM5G02 

EMSG03 

EMSG04 

EMSG05 

EMSG06 

EMSG07 

EMSGOfl 

EMSG09 

EttSCl 

EMSGIO 

EMSGll 

EMSG14 

EMSG15 

EM5G16 

EMSGlfl 

EMSG19 

EH5G2 

EMSG20 

EMSG22 

EMSG23 

EHSG24 

EMSG25 

EM5G3 

EMSG30 

EMSG31 

EHSG32 

EMSG33 

EM5G34 

EMSG35 

EMSG36 

EKSG3 7 

EMSG38 

EMSG4 

EMSG40 

EMSG41 

EMSG42 

EHSG5 

ENP 

ENTRNO 

EOF 

EOFFNO 
ERRBLK 



002170 
000000 
105026 
062173 
000020 
004000 
050522 
072322 
000036 
000035 
000034 
000037 
000040 
003464 
064272 
064321 
064341 
064373 
064415 
064450 
064510 
064553 
064613 
003465 
064656 
064716 
064755 
065031 
065064 
C65127 
0651 7f 
00 34 66 
065234 
065266 
065321 
065366 
065442 
003467 
065531 
065576 
065637 
065714 
065732 
066002 
066037 
066064 
066130 
0034 70 
066174 
066263 
066353 
005570 

000400 
112332 
112116 

112233 
052434 



ERRFLG 


050530 


G 


ERRMSG 


052432 


G 


ERRNBR 


052430 


G 


ERROR 


070*50 


G 


ERRS • 


■ 040000 


G 


ERRTYP 


052426 


G 


ERR1 


067460 


G 


ERR2 


067516 


C 


ERR3 


067604 


G 


EVL 


• 000004 


G 


EXIT - 


■ 000011 




EIENO • 


• 002100 




EILOAD- 


• 0O0035 




FAA0R1* 


■ 000022 


G 


FAADR2- 


• 000032 


G 


FAADR3- 


• 000042 


G 


FAA0P4' 


» 000052 


G 


FAFCT1- 


■ 000020 


G 


FAFCT2- 


■ 000030 


G 


FAFC T 3« 


. XK)040 


G 


FAFCT4- 


• 000050 


G 


FASIST 


051026 


G 


FASKIP' 


■ 0O0016 


G 


FATFLG 


050512 


G 


FATI • 


. 000400 


G 


FILEh#1 


111554 




FILLIN 


111570 




FINOSL 


112410 




FRAM « 


■ 020000 


G 


FROAOR 


• 000OO4 


G 


FREMEH 


04 7662 


G 


FRESH 


04 7660 


G 


FULAST 


06220 7 




FUL5LT 


112500 




FUNCT 


071372 


j 


FUN TAB 


047676 


G 


FIAU 


■ 000015 




FIAUTO- 


. 000020 




FIBGN « 


■ 000040 




FICLEA- 


• 000007 




FIDU i 


• 000016 




FIEND ■ 


• 000041 




r IHARD« 


• 000004 




FIHW • 


■ 000013 




FIINIT- 


• 000006 




FIJMP « 


■ 000050 




FIMOO « 


» 000000 




FIMSG - 


• 000011 




FIPROT 


• 000021 




FIPWR • 


■ 000017 




FIRPT • 


■ 000012 




F*$EG . 


. 000003 




F$SOFT« 


. 000005 




FISRV 


• ocooio 




FISU6 ' 


• 000002 




FISW ■ 


■ 000014 




F*TtST< 


« 000001 





GETCL 

GETCOM 

GETFNT 

GCTPCB 

GETRNX 

GETXNX 

GICNTO 

GtDELM 

GIDISP 

GIEXCP 

GIHILI 

GILOLI 

GINO 

GIOFFS 

GIOFSI 

GIPRMA 

GIPRMD 

GIPRML 

GIRADA 

GfRAOS 

GIRAOO 

Gi>RADL 

GIRAOO 

GIXFER 

G*YES 

M0MSG1 

M0MSG2 

HDMSG3 

M0HSG4 

H0MSG5 

H0MSG6 

HDHSG7 

HDMSG6 

M0HSG9 

HCAOER 

HELP 

HELP1 

HELP10 

HELPli 

MELP12 

HELP13 

HELP14 

H6LP15 

HELP16 

HELP17 

HELP16 

HELP19 

HELP2 

HELP20 

HELP21 

HELP22 

HELP23 

HELP24 

HELP25 

HELP26 

HELP2 7 

HELP28 



100274 
074304 
000002 
000001 
074262 
074274 
000200 
000372 
000003 
000400 
000002 
000001 
000000 
000400 
000376 
000001 
000002 
000000 
000140 
000000 
000040 
000120 
000020 
000004 
000010 
055342 
055413 
055466 
0*5522 
055577 
055650 
055710 
055751 
056014 
000016 
000001 
056060 
057101 
057172 
0572 70 
057375 
0574 74 
057573 
0576 76 
057765 
060070 
060140 
056161 
06024 3 
060321 
060404 
060505 
060605 
060735 
061021 
061125 
06122? 



HELP29 

HELP3 

HELP30 

HELP4 

HELP5 

HELP6 

HELP7 

H£LP6 

HELP9 

HEXBIN 

HEXC 

HLPENO 

HLPTAB 

HN 

HOE 

HXFORM 

HXN 

I8E 

ICAB • 

IDENT • 

IDU 

IER 

U.ADHS 

ILADM1 

ILL ADR 

INICLN 

INIEXI 

INIT 

1NIT1 

INTE 

INTR 

ISR 

IXE 

IIAU 

IIAUTO 

IICLN 

I IDU 

IIHRO 

IIINIT 

IIMOO 

IIMSG 

IIPROT 

IIPTA8 

IIPWR 

ICRPT 

IISEG 

IISETU 

IISFT 

IISRV 

IISU8 

IITST 

JMMP 

KEYW01 

KEYW02 

LCAR • 

LCLKEN- 

LCOL « 



061346 
056254 
C61416 
056325 
056376 
0564 76 
056611 
056722 
057012 
072552 
072650 
003260 
003164 
072526 
100000 
072414 
072412 
010000 
040000 
000010 
000040 
020000 
053051 
053135 
002650 
100130 
100132 
076600 
076620 
000100 
000200 
000100 
004000 
000041 
000041 
000041 
000041 
000041 
000041 
000041 
000041 
000040 
000041 
0O0041 
000041 
000041 
000041 
000041 
000041 
000041 
000041 
000167 
002310 
002312 
0040<X> 
000100 
010000 



LDADR1 

LDADR2 

LDFCT1 

LDFCT2 

LDMEtt 

LDRESP 

LDSKIP 

LENGTH 

LGERMS 

LOCDST 

LOE 

LOGDEL 

LOGNAM 

LOPOIR 

LOT 

LST 

LUPAIR 

LIACP 

LIAPT 

LlAU 

LIAUT 

LIAUTO 

LICCP 

LICLEA 

LICO 

LIDEPO 

LI0E5C 

LIDESP 

LIDEVP 

LI0I5P 

LIDLt 

LIDTP 

LIOTYP 

LIDU 

LIDUT 

LIDVTY 

LIEF 

LIENVI 

LIERRT 

LIETP 

LIEXP1 

LIEXP4 

LIEXP5 

LI HARD 

LIHIME 

LIHPCP 

LIHPTP 

LIHU 

LIICP 

LIINIT 

LILADP 

LILAST 

LILOAD 

LILUN 

LIMREV 

LI NAME 

t*PRIQ 



000022 

000032 

000020 

000030 

000021 

052574 

000016 

062342 

0671?7 

072206 

040000 

054426 

053440 

050720 

OO0010 

0726 70 

062162 

002110 

002036 

1C0266 

002070 

100140 

002106 

100142 

002032 

002011 

002130 

002076 G 

002060 G 

002164 

002116 

002040 

002034 

100260 

002072 

002122 

002052 G 

002044 G 

052426 

002102 

002046 

002064 

002066 

112762 

002120 

002016 

002022 G 

002170 G 

002*04 G 

0766OO G 

002026 G 

113166 G 

002100 G 

002074 G 

002050 G 

O020OO G 

002042 U 
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LVPROT 

LiPRT 

LJREPP 

L*REV 

L$RPT 

LISOFT 

LtSPC 

L$SPCP 

L*SPTP 

L*STA 

LISW 

LITEST 

i mm. 

LiUNIT 

L lOOOO 

L 10001 

L 10002 

L10003 

L100O4 

L10OO5 

L10OO6 

L10010 

L10011 

L10012 

L10013 

L10014 

L10015 

L10016 

L1001? 

MATCH 

ME SPAT 

MESPA1 

MORE ■ 

MC f ,AO 

MSGCNT 

MSGPRM 

MSGTAB 

MSGTYO 

MSGTY1 

MSGTY2 

MSGTY3 

MSGTY4 

MSGTY5 

MSGTY6 

MSGOC 

MSGOO 

MSGOl 

MSG02 

MSG03 

MSG04 

MSGOb 

MSG1 

MSC1C 

MSG11 

MSG12 

MSG2 

M5G2C 



076572 
002112 
002062 
002010 
076560 
113142 
002056 
002020 
002024 
002030 
002200 
002114 
002014 
00201c? 
002 \ 76 
002200 
C67514 
067602 
067654 
070022 
076570 
100136 
100140 
100256 
100264 
100272 
112756 
113014 
113142 
111774 
062054 
062125 
010000 
003316 
003300 
054641 
003262 

0623 72 
062400 
062405 
062413 
062420 
062425 

0624 33 
003300 
003334 
005464 
003465 
003466 
003467 
0034 70 
0547U 
003302 
055024 
055137 
055177 
003304 



MSG3 

MSG3C 

MSG4 

MSG4C 

MSG5C 

MSC6C 

NCHN ■ 

NEW 

NIHLT ■ 

NIRCNT 

NIUNI - 

NOCLK 

NOCMPR 

NOD 

NGOADR 

NODE - 

NOOTBL 

NOOTY 

NOOTYP 

NOOO 

N001 

N0010 

N00100 

N00101 

N00102 

N00103 

N00104 

N00105 

N00106 

N00107 

N0D11 

N00110 

N00111 

NOD 112 

N00113 

N00114 

N00115 

^00116 

N00117 

N0012 

N00120 

N00121 

N00122 

N00123 

N00124 

N00125 

N00126 

NO0127 

N0013 

N00130 

N00131 

N00132 

N00133 

N00134 

N00135 

N00136 

N0D137 



055235 
003306 
055276 
003310 
003312 
003314 
020000 
100112 
000006 
050516 
000007 
062622 
054160 
053701 
0534 3C 
000002 
002404 
002400 
053453 
051070 
051074 
051154 
051720 
051722 
051^24 
051730 
051734 
051740 
051744 
051746 
051156 
051752 
05175f 
051772 
051776 
052012 
052016 
052032 
052036 
051170 
052052 
052056 
052072 
052076 
052112 
0^2116 
052132 
052136 
051174 
052142 
052146 
052152 
052166 
052172 
052176 
052202 
052220 
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N0014 


051200 


N0052 


051502 


N0D140 


052224 


N0053 


051520 


NOD 141 


052230 


N0054 


051524 


N00142 


05223-1 


N0055 


051544 


N00143 


052240 


N0056 


051550 


(400144 


052244 


N0057 


051554 


N00145 


052264 


N006 


051134 


N00146 


052270 


N0060 


051556 


N00147 


052302 


N0061 


051562 


N0015 


051212 


N0062 


051576 


N00150 


052306 


N0D63 


051602 


N00151 


052324 


N0064 


051606 


NX 152 


052330 


N0065 


051612 


N00153 


052346 


N0D6* 


051624 


N00154 


052352 


N006 7 


051630 


N00155 


052366 


N007 


051140 


N00156 


052372 


N0070 


051634 


N00157 


052376 


N0071 


051640 


N001C 


051216 


N0072 


051644 


N00160 


052400 


N0073 


051650 


N00161 


052404 


N0074 


051654 


N00162 


052410 


N0075 


051672 


N00163 


052412 


N0076 


051676 


N00164 


052416 


N0077 


051714 


N00165 


052422 


NORESP 


06?302 


N00166 


052424 


NOTNUF- 


000012 


N0017 


051234 


NO.NTR- 


000006 


N002 


051100 


NTBHOR 


053462 


N0020 


051236 


NULL ■ 


OOOOOO 


N0021 


051250 


NULSTR 


053362 


N0022 


051252 


N10I 


051074 


N00?3 


051254 


N100* 


051456 


N0024 


051256 


N101I 


051462 


NO025 


051272 


N102I 


051502 


N0026 


051276 


N104t 


051524 


N0027 


051316 


N106I 


051550 


N003 


051102 


N110I 


051554 


N0030 


051322 


N12I 


051102 


N0031 


051340 


N120I 


051556 


NO032 


051344 


N121I 


051562 


N0033 


051362 


N122I 


051602 


N0034 


051366 


N123I 


051630 


N0035 


051402 


N124I 


051&44 


N0056 


051404 


N126* 


051650 


N0037 


051424 


N130I 


051654 


N004 


051116 


N132I 


051676 


N0040 


051430 


N134I 


051720 


N0D41 


051432 


N1351 


051722 


NOD42 


051434 


N14I 


051120 


N0043 


051440 


N140I 


051724 


N0044 


051444 


N141I 


051730 


N0045 


051450 


N142I 


051734 


N0046 


051454 


N143I 


051744 


N004 7 


051456 


N16I 


051140 


N005 


051120 


N160I 


051746 


N0050 


051462 


N161I 


051752 


N0D51 


051476 


N162S 


052016 



SEQ 187 



N163I 

N164I 

N165I 

N166* 

N1671 

N168I 

N170I 

N175I 

N178I 

N1BI 

N180* 

N181I 

N182* 

N183I 

N184* 

N185I 

N186I 

N190I 

N20* 

N20OI 

N201I 

N210I 

N212I 

N215* 

N22* 

N23I 

N24I 

N25I 

N26t 

N28I 

N29* 

N30I 

N31I 

N32I 

N80I 

N81I 

K82I 

N90$ 

N95$ 

OfLO • 

OK 

OKFU 

(XRE 

OKTR 

ONE 

ONE ALT - 

ONES • 

OPNERR 

OPRSEL- 

OPSLBF 

OWN 

OIAPTS- 

OtAU - 

0*BGNR- 

OIBGNS- 

OIDU • 

QJERRN 



052036 
052056 
052076 
052116 
052136 
052146 
052152 
052202 
052234 
051156 
052240 
052244 
052270 
052306 
052330 
052346 
052352 
052376 
051174 
052400 
052404 
052412 
052416 
052424 
051216 
051236 
051252 
051256 
051276 
051322 
051344 
051366 
051404 
051430 
051434 
051440 
051444 
051450 
051454 
010000 
061661 
062013 
061702 
061746 
004000 
000003 
OOOOOl 
112120 
00O006 
003570 
10OO00 
OOOOOO 
OOOOOO 
OOOOOl 
OOOOOO 
OOOOOO 
QOOOOO 
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SEQ 188 



OIGNSW' 

OJPOIN' 

OSSET'J- 

PART 

PASABT 

PATCH 

PATTRN 

PCBBO 

PCBB2 

PCBB4 

PC8B6 

PCCALL 

PCEFLG 

PCEI - 

PCLKCT 

PCLKEN= 

PCMSG 

PCSKO 

PCSROC 

PCSR1 

°CSR1C 

PCSR2 

PCSR2C 

PCSR3 

PCSR3C 

PCTO • 

POMO < 
PFNOP 

PHYADR 

PLINE 

PNOP 

PNT 

PREG14 

PRI 

PRIMLD 

PRIOO 

PRIOl 

PRI02 

PRI03 

PRI04 

PRI05 

PRI06 

PR 10/ 

PROTOT 

PROTOO 

PR0T02 

PRTNOD 

PIACT 

P$A£RR 

PtBUTA 

P*CNT 

PiCPYS 

PlEXIT 

PJGOBO 

PtMERR 

PINNUF 

P$NUM 



000000 
000001 
000000 
075314 
061526 
050572 
062262 
04 7666 
04 7670 
047672 
047674 
050564 
0505x4 
040000 
001600 

0001 tl 
066714 
047632 
04 7642 
04 7634 
047644 
047636 
04 7646 
047640 
04 7650 
0O020O 
000010 

oooooo 

04 7762 
112202 
0OO003 
0O10OO 
070024 
OO20OO 
000001 
OOOOOO 
000040 
0O0100 
0OC140 
000200 
000240 
000300 
000340 
000014 
050544 
050546 
112602 
OO3150 
003162 
0O3144 
003152 
002374 
075342 
003161 
003163 
003160 
003154 



PIPASS 

P$RADX 

P*SIZE 

PITREE 

PITRV 

PITR5 

PITYPE 

QUIT 

RASIST 

RBFCNT 

RCBI - 

RCVBUF 

RCVERR 

RDCNTS- 

RODEFA- 

RDERR 

ROLIN 

RDMOOE- 

RD^JLA- 

ROPHYA- 

RORNGS- 

RDSTA - 

ROSYS - 

READY - 

RECAST 

RECERR 

RECEVE 

REQIO 

RESET • 

RESTOR 

RESTRT 

RETRY 

RETRYS 

RMTC • 

RPKLEN- 

RRGCUR 

RRGLST 

RRGNXT 

RRGSRT 

RRG001 

RRG002 

RRG003 

RRG004 

RRG005 

RRG0O6 

RRING 

RRNGTB 

R5ET - 

RSTT - 

RTRY - 

RTRYER 

RUN 

RUNAl.L 

RlNCOtt 

PUNOIR 

f-.UMUP 

RUNPAT 



002376 
003156 
002372 
003146 
075216 
075226 
002370 
111024 
050774 
050524 
002000 
050540 
050536 
000012 
000002 
112154 
111442 
000014 
000006 
000OC4 
OO0O10 
000016 
000022 
0O0O02 
062243 
052631 
071776 
050712 
OOOOOO 
054627 
100046 
062316 
050534 
000010 
002756 
003760 
003770 
003764 
003754 
026006 
030764 
033742 
036720 
041676 
044654 
004066 
003722 
000040 
000015 
002000 
052675 
000003 
104 366 
106526 
105006 
1054 34 
107042 



G 
G 
G 
G 
G 
G 
G 



G 
G 
G 
G 
G 
G 
G 



G 
G 
G 



G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 



RXI 

SAVCOM 

SAVED 

SAVTBL 

SELMSG 

SERI - 

SFPTBL 

SIADDR- 

SIDEV - 

SIECO ■ 

SIFNCT- 

SIMSG1 

SIMSG2 

SIMSG3 

SIMSG4 

SIMSG5 

SIMSG6 

SIMSG7 

SIRCPT- 

SIUECO" 

SIVERS- 

SIZLMT 

SLOT 

SOURCC- 

SOURCE 

START 

STATBL 

STATUS 

STBLEN- 

STOP - 

STP 

STRBUF 

STRBU1 

STRT - 

SUMM 

SUMMRY- 

5UMMS1 

SUMMS2 

SUMMS3 

SUMHS4 

SUMMS5 

SUMMS6 

SVCG8L- 

SVCINS- 

SVCSUB- 

SVCTAG- 

SVCTST- 

SILSYM- 

S.BYTE 

S . COMP 

S.LEN 

S.NREC 

S.REC 

S.XFER 

TABCLR 

TABEMT 

TABFUL 



020000 
111012 
054620 
002530 
112274 
100000 
002200 
000042 
000053 
000030 
000035 
066440 
0664 7 7 
066532 
066572 
066613 
066641 
066667 
000022 
000031 
0O0O27 
054061 
002102 
000006 
072320 
076700 
002656 
050312 
000132 
000017 
001000 
002322 
002344 
000004 
053706 
000007 
067215 
067236 
067322 
067351 
067434 
067452 
OOOOOO 
000001 
0O0OC1 
000001 
000001 
010000 
050506 
050^04 
050502 
050500 
0504 76 
050510 
054514 
053632 
053560 



TASIST 
TBLLEN 

TEMP 

TEMPI 

TEMP2 

TEMP3 

TENPWR 

TIMERS 

TIMER1 

TIMER2 

TIMMIN 

TIMOUT 

TIMSEC 

TIMTCK 

TMRF 

TMRO 

TRASr 

TRVACT 

TRVADR 

TRVALN 

TRVALP 

TRVBIF 

TRV8R 

TRV8RC 

TRVDEC 

TRVERR 

TRVEXI 

TRVNMA 

TRVNOB 

TRVNUM 

TRVOCT 

TRVSPA 

TRV3TR 

TSTMS1 

TSTMS2 

TSTMS3 

TSTMS4 

TXI 

TIARGC 

T$C00E 

TIERRN 

TIEXCP 

TIFLAG 

TIGMAN 

TIHILI 

TILAST 

T*LOLI 

TILSYM 

TILTNO 

TINEST 

TlNSO 

TIPTNU 

TiSAVL 

TISEGL 

T$SUBN 

TITAGL 

TJTAGN 



050742 
000050 
050550 
050552 
050554 
050556 
075130 
003720 
003714 
003716 
003706 
050532 
003710 
003712 
000012 
000011 
062223 
075344 
076330 
076144 
076100 
075450 
075440 
075364 
075544 
075402 
075422 
075564 
075374 
075556 
075556 
075472 
076232 
061551 
061571 
061611 
061624 
010000 
000002 
002032 
000036 
OOOOOO 
000040 
OOOOOO 
0C0OO7 
000001 
OOOOOO 
010000 
000001 
177777 
000005 
OOOOOO 
177777 
177777 
OOOOOO 
177777 
010020 



TITEMP 

TITEST 

TITSTM 

TITSTS 

THAU 

TMAUT 

TMCLE 

TMDU 

TMHAR 

' MHU 

J MINI 

TMMSG 

TMPRO 

T$$RPT 

TMSOT 

• MSRV 

TMSW 

TMTES 

Tl 

UAM 

U6T0 

UC810 

UCB11 

UCB12 

UCB13 

UCB20 

UCB21 

UCB22 

UCB23 

UCB7 

UOBB 

UNACSR 

UNAIN1 

UNAI^R 

UN APR I 

UNAVEC 

INBOND 

UNIHLT- 

UNIT 

UNSMSG 

WAIT 

WOMOOE- 

WOMULA- 

WOPHYA- 

tJORNGS- 

WOSYS « 

WRITES 

XFER 

XFLAG 

XMIT 

XPKLEN- 

XPWR « 

XRGCUR 

XRGLST 

XRGNXT 

XRGSRT 



000005 

000001 

177777 

000001 

010014 

01OO11 

010012 

010013 

010016 

01OO00 

OIOOIO 

010004 

010007 

010006 

010017 

010005 

01OO01 

010015 

100274 

000200 

040000 

050110 

050134 

050160 

050160 

050340 

050340 

050400 

050400 

050010 

050050 

050466 

04 7652 

070262 

071144 

04 7656 

04 7654 

054252 

00OO05 

04 7664 

054561 

070066 G 

0OOO15 G 

000007 G 

0OOO05 

OOOOll 

000023 

074544 

050560 

050520 

071434 

002756 

100000 

003 756 

003766 G 

003 762 G 

003752 G 



CZUACBO DFUN, 
SYMBOL TABLE 
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XRGOOl 
XRG002 
XRG003 
XRG004 
XRGOC5 
XRG006 
XRING 

. ABS. 



004162 

007140 

012116 

015074 

020052 

023030 G 

003772 G 



iER DIAG 


MACRO M1200 


22-MAR-84 


10:53 PAGE 


33-5 






XRNGTB 


003736 


G 


ZROALT- 


1 000004 G 


IRDCN 


050150 


G 


Xt 


000167 




♦CLRC 


050260 G 


IRDDE 


047750 


G 


X*ALWA- 


000000 




ICLRS 


050320 G 


$RDMC 


050000 


G 


XSFALS- 


000040 




♦ DMEM 


050330 fi 


IRDMO 


050270 


G 


XIOFFS* 


000400 




$LMEM 


050350 G 


IRDPH 


047760 


G 


XtTRUe- 


000020 




♦PATCH 


113142 G 


IRDRN 


050100 


G 


ZER05 - 


000002 


G 


$PNOP 


047746 G 


$RDST 


050310 


G 



113166 000 
000000 001 
ERRORS DETECTED: 

VIRTUAL MEMORY USED: 31328 WORDS ( 123 PAGES) 
DYNAMIC MEMORY: 20060 WORDS ( 77 PAGES) 
ELAPSED TIME: 00:12:0? 
CZUACB.BIN l CZUACB,LST/-SP-SVC34R t MLB*CZUACB,Pll 



IRDSr 
IWDMC 
JWDMO 
IWDPH 
IWDRN 
$WTSY 



050360 
050040 
050300 
047770 
050124 
050370 



SEQ 1R9 



PROGRAM MACROS 
PROGRAM MACROS 
PROGRAM MACROS 
PROGRAM MACROS 
PROGRAM MACROS 
PROGRAM MACROS 
PROGRAM MACROS 
PROGRAM MACROS 
DISPATCH TABLE 
DEFAULT HARDWARE P-T 
DEFAULT HARDWARE P-l 
GLOBAL EQUATES SECTI 
GLOBAL EQUATES SECTI 



GLOBAL EQUATES SECTI. 
GLOBAL EQUATES SECTI. 
GLOBAL EQUATES SECTI. 
GLOBAL EQUATES SECTI. 
GLOBAL EQUATES SECTI. 
GLOBAL EQUATES SECTI. 
GLOBAL DATA SECTION . 
GLOBAL DATA SECTION . 
GLOBAL DATA SECTION . 
GLOBAL DATA SECTION . 
GLOBAL DATA SECTION . 
GLOBAL DATA SECTION . 
GLOBAL DATA SECTION . 



GLOBAL DATA SECTION 
GLOBAL DATA SECTION 
GLOBAL DATA SECTION 
GLOBAL DATA SECTION 
GLOBAL DATA SECTION 
GLOBAL DATA SECTION 
GLOBAL DATA SECTION 
COTtW© LINE ACTION 
COmAND LINE ACTION 
COWAND LINE ACTION 
GLOBAL TEXT SECTION 
GLOBAL TEXT SECTION 
GLOBAL TEXT SECTION 



..61 

..CI 
..Dl 
..El 
. ,F1 
..Gl 
..HI 
..II 
..Jl 
. .Kl 
..LI 
..Ml 
. .Nl 



.62 
,C2 
.02 
.E2 
.F2 
.62 
,H2 
.12 
.J2 
,K2 
.L? 
.M2 
.N2 



..63 
..C3 
..D3 
. .E3 
, .F3 
. .Gl 
..H3 
..13 
. .J3 
..K3 
. .L3 
..M3 
..N3 



...64 
...C4 
...04 
...E4 
,..F4 
...G4 

... rW 

...14 
• . . vr4 
...K4 
...L4 
...M4 
» • .N4 



GLOBAL 


TEXT 


SECTION . 


..65 


GLOBAL 


TEXT 


SECTION > 


..C5 


GLOBAL 


TEXT 


SECTION . 


. .05 


GLOBAL 


TEXT 


SECTION . 


..E5 


GLOBAL 


TEXT 


SECTION . 


..F5 


GLOBAL 


TEXT 


SECTION . 


..65 


GLOBAL 


TEXT 


SECTION . 


..H5 


GLOBAL 


TEXT 


SECTION . 


..15 


GLOBAL 


TEXT 


SECTION . 


..J5 


GLOBAL 


TEXT 


SECTION . 


..K5 


GLOBAL 


TEXT 


SECTION . 


..LS 


GLOBAL 


TEXT 


SECTION . 


. .M5 


GL08AL 


TEXT 


SECTION . 


..N5 


GLOBAL 


TEXT 


SECTION . 


..66 


GLOBAL 


TEXT 


SECTION . 


».C6 


GLOBAL 


TEXT SECTION . 


..D6 


GLOBAL 


TEXT 


SECTION . 


..E6 


GLOBAL 


TEXT 


SECTION . 


..F6 


GLOBAL 


TEXT 


SECTION . 


..66 


GLOBAL 


TEXT 


SECTION . 


. . Ho 


GLOBAL 


TEXT SECTION . . 


..16 


GLOBAL 


TEXT 


SECTION . 


. • J6 


GLOBAL 


TEXT 


SECTION . 


..K6 


GLOBAL 


TEXT 


SECTION . 


..L6 


GLOBAL 


TEXT 


SECTION . 


. »M6 


GLOBAL 


TEXT 


SECTION . 


..N6 


GLOBAL 


TEXT 


SECTION . 


..67 


GLOBAL 


T*XT 


SECTION .. 


>.C7 


GLOBAL 


TEXT 


SECTION . , 


..07 


GLOBAL 


TEXT 


SECTION . . 


..E7 


GLOBAL 


TEXT 


SECTION . 


..F7 


GLOBAL 


TEXT 


SECTION . 


..G7 


GLOBAL 


TEXT 


SECTION . 


..H7 


GLOBAL 


TEXT 


SECTION . 


..17 


GLOBAL 


TEXT 


SECTION . 


..J7 


GLOBAL 


TEXT 


SECTION ♦ 


..K7 


GLOBAL 


TEXT 


SECTION . 


..L7 


GLOBAL 


TEXT 


SECTION . 


..M7 


GLOBAL 


ERROR REPORT . 


..N7 


GLOBAL 


ERROR REPORT . 


..Be 


GLOBAL 


SUBROUTINES S. 


..C6 


GLOBAL 


SUBROUTINES S. 


..c* 


CLKSET 


CLOCK SETUP . 


, ,E6 


CLKINT 


CLOCK INTERR. 


..Fd 


PREGIh 


PRESERVE REG. 


..66 


ERROR 


HANDLE UNA I. 


• • Mo 


UNAINI 


INITIALIZE T. 


..16 


UNAINI 


INITIALIZE T. 


..je 


UNAINI 


INITIALIZE T. 


..Ke 


UNAINI 


INITIALIZE T. 


. ,L6 


UNAISR 


UNA 


INTERRVJP. 


..Me 


FUNCT 


SUBR TQ PER. 


...N* 



XMIT 

XMIT 

RECEVE 

EDPACK 

HXFORM 

HXFORM 

HEXBIN 

HEX6IN 

BINHEX 

BLOLC 

BLDLD 

BLDFAS 

BLDFAS 



BLOAST 

BLDREQ 

GET7NX 

BLDBUF 

BLDBUF 

DATCMP 

WRITES 

WRITES 

BINDEC 

BINDEC 

COMMAND 

COMMAND 

COMMAND 



TRANSMIT UNA. 
TRANSMIT UNA. 
RECEIVE UNA . 
ETHERNET DAT. 
HEX FORMAT R, 
HEX FORMAT R. 
HEX TO BINAR. 
HEX TO BINAR. 
BINARY TO HE. 
BUILD LOOP D. 
BUILD LOOP D. 
6UILD PACKET. 
BUILD PACKET. 



6UILD TRANSM. 
BUILD REQUES. 
GET NEXT TRA. 
BUILD MESSAG. 
BUILD MESSAG ♦ 
COMPARE DATA. 
WRITE DATA 0. 
WRITE DATA 0. 
CONVERT A 32. 
CONVERT A 32. 
LINE TRAVERS. 
LINE TRAVERS. 
LINE TRAVERS. 



COMMAND LINE TRAVERS 
COMMAND LINE TRAVERS 
COMMAND LINE TRAVERS 
REPORT CODING SECTIO 
PROTECTION TABLE 
INITIALIZE SECTION 
INITIALIZE SECTION 
INITIALIZE SECTION 
INITIALIZE SECTION 
INITIALIZE SECTION 
AUTOOKOP SECTION 
CLEANUP COOING SECTI 
DROP WIT SECTION 



,.B9 
..C9 
..D9 
..E9 
..F9 
..G9 
..H9 
..19 
..J9 
,.K9 
..L9 
..M9 
,.N9 



...BIO 
...CIO 
...D10 
. ..E10 

...no 

. . .G10 
. . .H10 
...110 
...J10 
. ..K10 
. ..L10 
. ..M10 
. ..N10 



..811 
..Cll 
. .011 
..Ell 
..Fll 
..Gil 
..Hll 
..111 
..Jll 
..Kll 
..Lll 
..Mil 
..Nil 



ADO UNIT SECTION B12 

TEST 1. ....C12 

CLI ACTION TABLE AND....D12 

CLI ACTION TABLE AND E12 

CLI ACTION TABLE AND.. .F 12 

CLI ACTION TA3LE AND G12 

CLI ACTION TABLE ANC H12 

CLI ACTION TABLE AND.... 112 
CLI ACTION TABLE AND....J12 

CLI ACTION TABLE AND K12 

CLI ACTION TABLE ■*©.... L12 

CLI ACTION TABLE AND M12 

CLI ACTION TABLE AN0**.,N12 



CLI ACTION 
CLI ACTION 
CLI ACTION 
CLI ACTION 
CLI ACTION 
CLI ACTION 
CLI ACTION 
CLI ACTION 
CLI /CTION 
CLI ACTION 
CLI ACTION 
CLI ACTION 
CLI ACTION 



TA8LE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TAffLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 



AND. 
AND. 
AND. 
AND. 
AND. 
AND. 
AND. 
AND. 
AND. 
AND. 
AND. 
AND. 
AND. 



CLI ACTION TABLE AND. 
CLI ACTION TABLE AND. 
CLI ACTION TABLE AND. 
CLI ACTION TABLE AND. 
CLI ACTION TA8LE AND. 
HEAD LINE OF OPENED . 
READ LINE OF OPENED . 
READ LINE Cf OPENED . 
READ LINE OF OPENED . 
READ LINE OF OPENEO . 
READ LINE CF OPENED . 
READ LINE OF OPENED . 
HAROWARE PARAMETER C. 



SOFTWARE PARAMETER C 
SOFTWARE PARAMETER C 
SYMBOL TABLE 
SYM80L TABLE 
SYMBOL TABLE 
SYM60L TABLE 
SYMBOL TABLE 



...613 
. ..C13 
. . .013 
. ..E13 
...F13 
...613 
...H13 
...113 
. ..J13 
. ..K13 
. ..L13 
. . .M13 
. ..N13 



..614 
..C14 
.014 
..E14 
..F14 
. .G14 
..H14 
..114 
..J14 
..K14 
..L14 
..M14 
..N14 



..815 
..C15 
..015 
..E15 
..F15 
. ^15 
• . i!5 



